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本 书 深入 浅 出 地 介绍 了 用 现代 计算 机 科学 方法 在 中 华 学 习 机 和 
Apple 等 微型 机 上 进行 智能 游戏 软件 设计 的 原理 、 方 法 . 工具 和 技巧 。 
书 中 在 给 出 多 种 类 型 的 、 完 整 的 游戏 实例 程序 的 同时 , 详细 介绍 了 各 
类 典型 游戏 程序 的 功能 与 具体 玩法 , 并 就 游戏 程序 的 组 成 要 素 、 设 计 
原理 、 设 计 过 程 和 使 用 技巧 等 进行 了 阐述 , 给 出 了 所 有 游戏 程序 的 详 
细 流程 图 和 完整 的 程序 清单 。 

本 书 适 于 广大 青少年 计算 机 程序 设计 爱好 者 和 计算 机 游戏 爱好 者 
阅读 , 对 有 志 寺 计算 机 游戏 程序 设计 的 大 专 院 校 学 生 以 及 广大 青少年 
计算 机 课外 辅导 员 和 中 学 计算 机 教师 , 本 书 也 具有 一 定 的 指导 意义 。 

本 书 的 全 部 游戏 程序 、 工 具 程 序 和 图 形 范例 等 均 在 本 书 的 附加 软 
盘 片上 , 其 中 工具 盘 一 张 , 游戏 盘 三 张 , 同时 由 我 社 发 行 
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青少年 是 社会 的 希望 ,是 未 来 信息 化 社会 的 主人 .在 电子 
信息 技术 飞速 发 展 的 今天 , 世界 各 国都 十 分 重视 从 中 小 学 就 
开展 计算 机 教育 ,除了 进行 计算 机 程序 设计 知识 的 教育 以 外 ， 
都 注意 并 不 断 加 强 计 算 机 在 青少年 教育 中 的 应 用 。 

我 国 青 少年 计算 机 普及 教育 工作 , 在 邓小平 同志 “计算 机 
普及 要 从 娃娃 抓 起 "的 指示 精神 鼓舞 下 , 愈 来 您 多 的 青少年 对 
计算 机 的 学 习 与 应 用 产生 了 浓厚 的 兴趣 , 他 们 学 计算 机 ,用 计 
算 机 , 刻苦 钻研 , 勇于 探索 , 大 胆 实 践 , 敢于 创新 .经 过 短 短 几 
年 时 间 , 青 少年 计算 机 普及 教育 工作 已 取得 了 可 喜 的 成 绩 , 出 
现 了 前 所 未 有 的 好 形势 . 当前 , 就 全 国 范围 而 言 , 青少年 计算 
机 教育 的 普及 面 不 断 扩 大 , 水 平 不 断 提 高 .特别 引 人 注 目的 
是 , 我 国 青少年 计算 机 教育 已 开始 进入 使 广大 青少年 在 懂得 
一 定 计算 机 基本 知识 的 同时 , 掌握 一 些 应 用 计算 机 的 技术 和 
技能 这 样 一 个 新 的 阶段 .1987 年 全 国 青少年 计算 机 软件 评比 
交流 会 就 是 这 一 新 阶段 的 重要 标志 。 实 践 证 明 , 计算 机 进入 
中 、 小 学 基础 教育 领域 (包括 课 内 、 课外 ), 对 逐步 利用 现代 化 
的 教育 手段 , 培养 青少年 学 科学 . 爱 科 学 .用 科学 的 兴趣 ,丰富 
课外 科技 活动 , 提高 教育 质量 , 提高 中 华 民 族 的 素质 等 有 着 重 
大 的 现实 意义 和 深远 的 战略 意义 。 

1987 年 全 国 青 少年 计算 机 软件 评比 交流 会 盛况 空前 , 影 
啊 很 大 ,各 省 推荐 的 150 多 个 教学 软件 参加 了 评比 , 从 中 评 出 
全 国 青 少年 计算 机 教育 软件 一 .二 .三 等 奖 30 个 ,教师 优秀 软 
件 10 个 .评审 委员 会 的 专家 们 一 致 认为 , 这 些 软件 有 向 全 国 
广泛 推广 的 重要 价值 .因此 ,为 了 把 这 些 获奖 软件 介绍 给 广大 
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青少年 , 为 了 推动 计算 机 教育 与 中 . 小 学 基础 教育 更 好 地 结 
合 ,我 们 决定 编辑 出 版 “青少年 计算 机 教育 丛书 .这 套 书 共 分 
五 册 , 它 们 是 

日 青少年 计算 机 获奖 工具 软件 选编 (电子 工业 出 版 社 出 
版 ) 

日 青少年 计算 机 获奖 教学 软件 选编 (清华 大 学 出 版 社 出 
版 ) 

e 计 算 机 辅助 教学 软件 设计 方法 (科学 出 版 社 出 版 ) 

捍 中 华 学 习 机 智能 游戏 软件 设计 与 使 用 技巧 (科学 出 版 社 
出 版 ) 

昌国 外 计算 机 辅助 教学 软件 选编 (科学 出 版 社 出 版 ) 

“青少年 计算 机 教育 丛书 ” 编 委 会 由 编 委 会 主任 洪 民 光 ， 
副 主任 陈 树 楷 、 王 亚 民 、 潘 夯 德 . 吕 传 兴 , 吴 洪 来 . 王 吉庆 、 吴 文 
虎 以 及 委员 孙 延 军 . 谢 文 杰 . 张 国 沪 . 王 心 园 . 王 十 时 等 同志 组 
成 。 

在 中 华 腾 飞 的 龙 年 , 我 们 把 这 套 丛书 献 给 全 国 广大 青 少 
年 计算 机 爱好 者 , 献 给 广大 青少年 计算 机 教育 工作 者 , 献 给 即 
将 到 来 的 邓小平 同志 ”计算 机 普及 要 从 娃娃 抓 起 "题词 五 周年 。 


“青少年 计算 机 教育 丛书 "编审 委员 会 
1988 年 1 月 
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艺术 、 教 育 与 计算 机 游戏 

如 果 今 天 有 人 说 计算 机 游戏 是 一 种 新 的 、 快 速 发 展 着 的 
艺术 形式 ,一 定 会 使 人 感到 可 笑 , 怎 么 能 把 “空中 强盗 "“ 抓 
坏人 "等 游戏 说 成 是 一 种 艺术 ?怎么 能 把 * 打 坦 区 "“ 走 迷 窗 ” 
等 游戏 与 贝多 芬 的 第 十 互 交 响 乐 , 米 开 归 奇 风 圣 考 男 或 海 明 、 
威 的 小 说 相提并论 ?计算 机 游戏 被 称 作 艺术 似乎 太 不 合适 了 ， 
以 致 人 们 认为 它 充 其 量 不 过 是 一 种 消 遗 或 娱乐 活动 。 

但 是 .我 们 不 能 仅仅 以 当前 计算 机 游戏 所 取得 的 成 绩 为 
依据 来 贬低 计算 机 游戏 在 文学 艺术 中 的 地 位 。 我 们 必须 考虑 
发 展 趋势 ,着 眼 于 人 研究 计算 机 游戏 的 基本 概念 。 每 种 艺术 都 
有 极 丰 富 的 精神 内 涵 , 艺 术 能 激发 人 的 灵感 与 息 象 力 , 卡 宇 人 
们 的 精神 世界 。 可 是 ,几乎 没有 一 种 艺术 能 被 非 艺 术 家 的 观 
众 完全 理解 , 其 中 一 个 主要 问题 是 绝 大 多 数 艺 术 形 式 几 乎 都 
不 允许 观众 直接 参与 活动 。 观 众 只 能 安静 地 坐 着 , 听 由 作曲 
家 创作 并 由 音乐 家 演奏 的 音乐 , 或 者 全 神 贵 注 地 在 博物 馆 内 
观赏 一 幅 他 人 的 作品 ,或 者 阅读 诗歌 或 故 击 。 在 这 一 切 艺术 
形式 中 ,观众 的 角色 是 被 动 的 。 艺 术 家 承担 了 全 部 主动 工作 ， 
花费 了 大 量 心血 ,他 们 的 劳动 成 果 和 希望 能 被 观众 接受 和 理 
解 。 

绝 大 多 数 艺术 形式 在 技术 上 是 防止 观众 积极 参与 的 。 如 
果 有 人 策 头 策 脑 地 跳 进 管弦 乐队 的 乐 池 , 或 者 跳 上 歌剧 舞台 ， 
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或 者 用 颜料 在 毕加索 油画 上 涂 划 ,将 会 出 现 什 么 样 的 后 果 是 
可 和 想 而 知 的 。 艺 术 家 做 了 那么 多 ,但 能 被 人 们 理解 和 领会 的 
印 很 少 ,其 主要 原因 之 一 是 观众 始终 锁 在 被 动 的 角色 中 .而 不 
是 积极 地 参与 。 
当初 作为 科 党 计算 工 其 来 开发 的 电子 计算 机 ,在 有 了 了 网 
彤 和 声音 处 理 能 力 之 后 好 象 被 赋予 了 新 的 生命 力 ,在 人 与 计 
算 机 之 间 大 们 不 仅 能 用 无 感情 色彩 的 数字 语言 安 换 信息 ,而 
且 偿 能 用 激动 人 心 的 图 象 语 言 和 声音 进行 通讯 。 它 给 计算 机 
游戏 提供 了 良好 的 开发 环境 ， 虽 然 用 目前 市 场 上 流行 的 微型 
计算 机 还 不 能 产生 出 交响 乐 、 电 影 或 戏剧 之 类 的 艺术 ,但 是 ， 
这 一 弱点 可 用 计算 机 游戏 的 基本 优势 来 补偿 (游戏 在 本 质 上 
是 积极 参与 的 )。 计 算 机 游戏 并 不 象 艺术 那样 提供 精神 亨 受 
的 同时 又 防止 观众 和 干扰: 游戏 设计 师 的 工作 并 不 创造 感受 本 
身 , 而 是 在 一 定 的 条 件 和 规则 约束 下 .让 观众 自已 来 创造 各 种 
感受 和 经 验 。 游 戏 对 设计 师 的 要 求 更 站 ; 要 求 他 们 用 更 已 
妙 、 曲 折 的 方法 来 设计 估 与 者 的 间接 感受 ,他 们 要 在 各 种 参 
与 者 可 能 出 现 的 动作 和 反应 上 下 功夫 。 玩 游戏 的 人 由 于 白 身 
参与 而 激发 了 灵感 ,增强 了 感受 强度 并 得 到 满足 ,这 就 是 为 什 
么 许多 业余 艺术 爱好 者 热 灾 寺 自生 参 与 的 原因 。 
教育 在 人 的 成 长 过 程 中 起 着 关键 的 作用 。 人 们 在 课堂 
内 、 家 庭 中 、 社 会 上 接受 明 然 科学 、 社 会 科学 知识 .训练 各 
种 今后 工作 和 生活 所 需 此 的 技能 。 青 少年 在 成 长 过 程 中 对 未 


戏 异 拟 各 种 战斗 场面 . 设 凑 迷 千 . 造 成 各 种 人 -机 策略 对 抗 ,使 
广大 青少年 (也 包括 成 人 ) 在 计算 机 游戏 的 对 局 中 不 愿 个 手 , 因 
此 有 人 认为 计算 机 游戏 是 一 种 杖 好 的 课外 畏 动 教育 手段 。 心 
理 尝 的 专门 全 究 表 明 , 具 有 动 匣 、 声 音 功能 的 冒险 、 策 略 对 
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抗 、 战 斗 模拟 和 博 诗 游戏 对 提高 儿童 的 智商 有 着 重要 的 作 
用 。 当然, 具有 游戏 形式 的 各 种 课程 的 辅助 教学 软件 与 教育 
的 关系 浆 更 直接 了 。 我 们 相信 ,在 中 华 学 习 机 推广 普及 之 后 ， 
计算 机 游戏 的 研究 和 开发 一 定 会 以 新 的 规模 站 前 发 形 


智能 与 游戏 

员 前 ,市 场 上 有 数量 众多 的 电子 游戏 机 和 计算 机 游戏 软 
件 。 通 常 它 们 在 屏幕 上 显示 出 快速 移动 的 动 甸 和 各 种 声音 。 
项 这 We 有 一 定 的 困难 ,但 匡 很 容易 引起 人 们 的 兴趣 。 
玩 它 们 时 一 般 说 来 不 需要 太 多 的 知识 .所 震 要 的 是 快速 反应 
能 力 、 好 的 眼力 和 对 有 关 游 戏 许 多 规定 的 深入 理解 ， 比 较 典 
型 的 游戏 种 类 有 :战斗 游戏 一 一 击 垮 对 方 或 保卫 有 自己 的 发 身 
基地 ;旅游 游戏 一 一 总 速 通过 迷宫 或 跨越 各 种 障 但 ;体育 比赛 
游戏 一 一 几 径 比赛 的 正确 落 点 、 速 度 、 角 度 控 制 等 等 ， 这 类 
洲 戏 可 以 训练 人 们 对 外 界 事物 的 控制 能 力 和 注意 力 集 中 ,这 
无 疑 是 很 重要 的 .智能 游戏 "具有 下 面 两 个 特点 : 

1. 现 这 些 游戏 需要 一 定 的 知识 .例如 , 震 要 有 一 定 的 计 
划 、 组 织 、 逻 辑 、 战 术 、 策 略 、 心 理 、 话 言 和 精确 推理 的 训 
练 。 微 机 智能 游戏 引起 了 人 们 的 广泛 兴趣 .不 管 是 解 谜 语 ， 
ee 懂 拟 战争 、 纪 想 故 事 的 冒险 等 都 击 此 逻辑 思维 和 智 

ee 4 到 不 仪 能 用 微机 教授 地 理 、 历 史 、 数 
学 # 及 物理 等 知识 , 还 能 用 微型 机 教 人 们 怎样 去 思考 、 计 划 
和 解决 问题 . 

2. 这 些 机 器 已 肌 有 某 种 * 智 能 "人工 智能 "这 个 词 对 我 
们 来 说 并 不 牛 踊 , 它 是 计算 机 科学 的 一 个 分 支 .在 机 器 人 、 医 
党、 心理 学 、 语 言 和 机 器 翻 话 、 武 髓 的 导航 系统 、 改 进 计算 


机 系统 的 设计 等 方面 有 着 大 量 的 应 用 。 它 的 目标 是 研究 人 类 
智能 的 规律 .以 制造 出 机 器 的 智能 。 在 你 仔细 思考 片刻 之 后 
就 会 明确 .要 用 智能 来 玩 的 游戏 在 设计 中 就 必须 包含 某 些 智 
能 ,也 就 是 该 游戏 程序 在 设计 时 必须 考虑 到 它 的 智能 能 够 餐 
盖 所 有 玩 游 戏 的 人 的 输入 和 策略 ,或 者 它 必须 用 一 定 的 智能 
去 对 付 玩 游戏 的 人 ,以 便 使 游戏 能 够 继续 下 去 , 即 必须 使 程序 
所 采取 的 行为 是 与 玩 游 戏 者 相对 应 的 智能 行为 。 

没有 谁 会 说 本 书 所 涉及 的 游戏 都 已 智能 化 了 ,实际 上 ,其 
中 有 许多 问题 不 是 在 目前 的 微机 上 (甚至 是 中 、 小 型 计算 机 
上 F) 就 能 解决 的 , 但 又 必须 使 游戏 玩 得 有 趣 .所 以 在 有 关 的 游 
戏 中 只 可 能 用 到 智能 技术 的 一 小 部 分 ,而 且 是 相对 简单 的 技 
术 。 我 们 的 目的 是 抛 苇 引 玉 , 希 望 能 由 此 引起 更 多 的 智能 游 
戏 设计 的 兴趣 ,产生 更 多 的 独创 思想 。 

智能 游戏 的 主要 问题 之 一 是 它们 的 规模 往往 很 大 ,这 会 
用 到 大 量 内 存 。 为 此 ,人 们 只 能 在 程序 的 智能 性 、 趣 味 性 和 
其 长 度 之 问 采取 折 囊 方案 。 通 常 ,在 设计 智能 冒险 或 复杂 的 
策略 游戏 时 ,由 于 大 幅 逼 址 的 图 形 杰 占 用 大 量 的 内 存 空间 ,所 
以 只 能 在 图 的 直观 逼真 和 复杂 智能 汐 内 部 逼真 度 之 间 取 得 平 
衡 。 


游戏 程序 的 设计 

本 书 中 所 用 的 程序 设计 方法 被 称 为 模块 化 或 结构 程序 设 
计 , 这 意味 着 程序 是 由 一 系列 异 块 构成 的 。 各 模块 是 相对 独 
芯 的 ,一 般 可 作为 一 个 子 程序 (例如 用 BASIC 语言 与 的 一 个 
过 程 ), 不 同 的 异 块 能 用 不 同 的 方法 来 定义 ,以 给 出 不 同 的 程 
岩 。 用 这 种 方法 设计 不 同 的 游戏 时 ,有 时 只 需要 对 同一 便 块 


Vi 


进行 少量 的 修改 。 模 块 化 程序 设计 改变 了 旧 的 程序 设计 的 刁 
惯 .使 查 错 和 调试 变 得 容易 。 另 一 方面 .由 于 它 是 按 合理 的 逻 
辑 结构 设计 程序 的 , 因 面 设计 出 来 的 程序 清单 易 寺 了 交 恋 和 理 
解 .并 使 得 它 能 比较 容易 地 换 成 另 一 种 语言 来 书写 程序 。 与 
韭 结 构 的 、 优 秀 的 等 效 程序 相 比 ,结构 化 程序 可 能 此 占用 更 
多 的 内 存 和 更 长 的 运行 时 间 , 当 然 ,还 归 对 程 太 人员 进 行 一 定 
的 训练 。 因 此 ,如 果 你 只 编写 一 个 游戏 ,并 硕 望 少 用 内 存 且 有 
尽 可 能 快 的 速度 ,你 就 不 一 定 上 要 用 结构 化 程序 设计 。 而 如 采 
你 计划 要 编 一 系列 游戏 程序 ;或 者 要 建立 一 个 程序 库 , 那 么 结 
构 化 的 初始 准备 工作 就 会 使 你 收 到 民 好 的 效果 。 

本 书 的 主要 目的 是 为 了 帮助 读者 理解 与 掌握 计算 机 游戏 
程序 设计 ,并 通过 游戏 程序 帮助 读者 学 习 更 多 的 程序 设计 原 
理 和 方法 。 读 者 将 通过 游戏 程序 学 到 诸如 屏幕 显示 、 结 构 
生成 、 逻 辑 关 系 、 用 户 友好 及 趣味 性 等 方面 的 具体 处 理 方 
法 : 


主要 内 容 和 阅读 方法 建议 

我 们 假定 读者 已 经 掌握 了 中 华 学 习 机 或 Apple 微机 系 
统 的 基础 知识 ,并 初步 掌握 了 BASIC 语言 和 6502 汇编 语言 
程序 设计 方法 。 在 这 个 基础 上 .本 书 讲述 了 各 类 典型 的 游戏 
实例 程序 的 功能 与 玩法 ;游戏 程序 的 组 成 要 素 和 设计 原理 ; 游 
戏 程序 的 设计 过 程 和 设计 技巧 。 对 书 中 的 游戏 实例 程序 均 给 
出 框图 ,并 在 本 书 附 录 中 给 出 程序 清单 。 

本 书 适 用 于 三 种 不 同 的 读者 。 对 于 只 想 玩 游戏 的 读者 仅 
阅读 附录 中 有 关 游 戏 玩 法 介绍 的 内 容 。 对 于 一 般 的 游戏 爱好 
者 来 说 , 仅 需 要 阅读 第 一 、 二 章 的 内 容 。 对 于 青少年 计算 机 
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教师 、 课 外 指导 员 以 及 有 志 于 游戏 程序 设计 的 人 员 来 说 需 监 
阅读 完 后 面 三 章 。 本 书 的 全 部 游戏 程序 、 工 具 程序 以 及 图 形 
范例 都 在 本 书 的 附加 软盘 上 ,作者 希望 能 为 广大 游戏 爱好 者 
和 游戏 程序 设计 人 员 提 供 一 本 有 用 和 有 趣 的 参考 书 。 特 别 希 
望 能 给 有 中 华 学 习 机 、AppleII 微型 机 的 单位 和 家 庭 增加 
业余 生活 乐趣 ， 在 你 阅读 完 本 书 之 后 ,最 好 自己 动手 玩 一 玩 
忆 中 提 到 的 游戏 ,用 一 用 书 中 的 工具 软件 来 设计 儿 个 小 游 
戏 ， 这 无 疑 会 给 你 和 家 庭 带 来 欢乐 气质 , 提 商 青少年 对 计算 
机 应 用 的 认识 和 兴趣 。 若 要 做 到 这 一 点 ,请 你 最 好 购买 本 书 
的 附加 软盘 片 ,否则 你 会 碰 到 一 些 麻 烦 。 本 书 作者 诚 屋 、 热 
切 地 肴 望 得 到 读者 的 批评 指正 。 

本 书 由 吴 洪 来 主编 , 许 家 骅 负责 编写 第 一 章 , 王 颂 赞 负责 
编写 第 四 章 , 费 德 宝 参 加 了 第 五 章 的 编写 , 姚 秉 刚 提供 了 许多 
游戏 实例 程序 ,并 编写 了 游戏 程序 框图 ,王政 勇 对 各 类 游戏 的 
刺 法 进行 了 上 机 实践 。 竺 榕 、 周 角 为 本 书 提供 了 一 些 开 发 游 
戏 软件 的 工具 程序 范例 。 

本 书 由 王 亚 民 、 吴 文 虎 同志 主 审 ,他 们 在 本 书 的 编写 过 
程 中 提出 了 许多 指导 性 的 意见 ,对 本 书 的 顺利 完成 起 了 重要 
的 作用 . 在 此 致谢 。 

作者 还 特别 感谢 张 光明 、 竺 榕 、 李 勤 同 党 在 假期 中 不 辞 
辛劳 地 完成 了 本 书 磁 盘 的 大 部 分 录入 工作 。 


编著 者 
1988 年 4 月 
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第 一 章 ”计算 机 游戏 导论 


第 一 节 “引言 


玩 计 算 机 游戏 ,实际 上 就 是 参与 一 场 以 计算 机 为 对 手 的 
人 -机 智力 竞赛 ,是 用 自己 的 策略 和 战术 为 夺取 胜利 所 作 的 一 
系列 选择 。 其 中 每 一 个 选择 都 依赖 于 前 面 的 选择 。 我 们 可 以 
把 它 想象 成 一 棵 树 ,在 每 个 分 又 处 都 是 一 个 选择 。 所 以 ,如 果 
你 作 了 一 个 错误 的 选择 ,你 就 可 能 失败 或 得 不 到 高 分 ,或 达 不 
到 更 高 级 别 的 对 手 水 准 。 编 写 一 个 游戏 程序 是 给 游戏 者 创造 
一 套 可 供 选 择 的 过 程 。 对 一 个 游戏 来 说 ,基本 的 BASIC 命令 
是 IF.. .THEN..。 .ELSE..。。。 如 果 游 戏 者 选择 街 
动 (a), 那 么 结果 是 (b); 但 是 ,如 果 (x) 被 选择 ,那么 结果 将 是 (y)。 
所 以 如 果 我 们 要 想 写 一 个 好 的 游戏 ,就 必须 做 以 下 三 件 事 : 

(给 游戏 者 提供 若干 有 趣 的 或 测试 的 选择 。 

(2) 用 相互 联系 的 方法 把 那些 选择 组 织 起 来 ,以 便 让 条 件 
选择 合理 地 结合 在 一 起 。 

(3) 把 复杂 的 、 困 难 的 问题 与 简单 的 、、 可 解 的 问题 联系 
起 来 ,使 复杂 的 困难 问题 变 成 一 系列 简单 的 问题 来 加 以 解 
决 。 

游戏 可 能 有 多 种 选择 。 起 初 是 游戏 者 会 选择 游戏 方案 或 
它 的 某 些 参数 (例如 选择 对 手 级 别 ); 也 可 能 在 不 同 场合 下 选择 
各 种 动作 (例如 从 何 处 开动 ,走向 何 处 ,或 者 迎战 “魔王 7); 游 戏 
者 必须 在 有 限 的 资源 中 作出 选择 ,直至 游戏 结束 。 


作为 一 个 很 简单 的 例子 ,我 们 让 游戏 者 去 猜 一 个 被 计算 
机 选 出 的 1 到 9 中 的 数字 。 每 当 游 戏 者 作 了 一 次 猜测 , 即 选 
择 了 一 个 数字 后 ,计算 机 就 会 告诉 你 它 所 选择 的 数 是 大 于 或 
小 于 你 猜 的 数 。 奖 分 按 下 面 方式 给 出 :从 100 开始 ,每 猜 一 次 
不 中 ,就 扣 掉 10 分 :一 旦 猜 中 就 结束 一 局 ,计算 奖 分 。 因 此 ， 
猜测 得 好 最 后 的 积分 就 高 。 开 始 有 三 个 主要 选择 方案 一 一 三 
种 可 能 的 策略 。 游 戏 者 能 随机 地 猜 数 ,可 以 从 某 末端 开始 ( 例 
如 1), 逐 步 加 1 进行 猜测 (策略 1), 直 至 猜 中 为 止 ;或 者 相反 ,从 
9 开始 ,逐步 减 1 进行 猜测 (策略 2); 或 者 运用 以 下 方法 : 

() 猜 数 $。 

(2) 如 果 计 算 机 的 数字 (以 下 简称 回答 ) 小 于 $, 则 选择 3; 和 否 
则 选择 7。 

(3) 如 果 7 被 选中 , 且 回答 小 于 , 则 结果 为 6。 

(4) 如 果 7 被 选中 , 且 回 答 大 于 , 则 选择 9。 

(53) 如 果 9 被 选中 ,是 回答 小 于 , 则 结果 为 8。 

(6) 如 果 3 被 选中 , 且 回 答 大 于 , 则 结果 为 4。 

(7) 如 果 3 被 选中 , 且 回 答 小 于 , 则 选择 1。 

(8) 如 果 1 被 选中 , 且 回 答 大 于 , 则 结果 是 2。 


图 1.1 1 一 9 数字 猜测 树 


如 果 游 戏 者 选择 第 一 或 第 二 个 策略 ,他 们 可 能 要 作 多 至 
8 次 猜测 才能 得 到 正确 答案 。 然 而 ,对 于 第 三 种 策略 ,猜测 的 
次 数 决 不 会 大 于 4 次 。 所 以 ,游戏 者 积分 至 少 是 60 分 ,平均 
为 80 分 左右 。 很 明显 ,最 好 的 策略 是 第 三 种 。 在 这 一 游戏 中 ， 
全 部 可 用 的 选择 中 只 有 这 个 选择 是 最 好 的 , 它 把 将 来 可 能 需 
要 的 选择 次 数 降 至 最 少 。 

一 个 典型 的 游戏 在 达到 最 后 胜利 之 前 必须 有 一 系列 障碍 
要 克服 。 为 了 鼓励 游戏 者 的 正确 抉择 和 智慧 的 增长 , 给 予 奖 
励 是 必要 的 。 每 一 个 障碍 被 跃 过 都 要 给 予 奖励 ,并 记 入 总 分 
中 ,以 便 让 游戏 者 知道 自己 的 水 平和 接近 答案 的 程度 ， 在 一 
个 冒险 游戏 中 ,障碍 可 以 是 要 解决 的 问题 ,要 找 的 目标 ,要 通过 
的 迷宫 ,要 打击 的 怪物 ,要 猜 的 答案 ;在 策略 或 战争 游戏 中 , 障 
碍 包括 所 有 阶段 的 计划 和 经 常 改 变 场景 下 的 正确 行动 。 在 游 
戏 设计 过 程 中 ,我 们 必须 强烈 地 关注 游戏 者 的 情绪 ,至 少 要 通 
过 一 系列 逻辑 选择 来 发 展 和 激化 游戏 的 场景 ,以 激化 局 中 大 
的 情绪 。 随 机 选择 通常 是 做 不 出 令 人 满意 的 游戏 的 。 例 如 ， 
在 计算 机 棋 类 博弈 游戏 中 ,一 套 逻 辑 规则 被 建立 起 来 ,游戏 对 
手 必须 尽 可 能 地 来 应 用 这 些 规则 以 达到 结果 位 置 。 对 抽象 游 
戏 来 说 ,通常 是 没有 现实 基础 的 ,游戏 者 与 其 想象 它 是 某 种 实 
际 问题 的 解 还 不 如 试 着 去 发 现 应 用 这 些 规则 的 最 优 方 法 。 


第 二 节 ， 计算机 游戏 程序 分 类 
任何 事物 都 能 按 它们 的 功能 或 形式 进行 分 类 。 游 戏 的 功 
能 与 其 应 用 场合 相对 应 。 在 教育 工作 中 ,可 以 用 它 来 进行 教 
学 训练 和 传授 知识 ;在 研究 工作 中 ,可 以 用 它 来 对 一 个 经 常 变 
化 的 ,高 花费 的 ,甚至 是 不 能 直接 观察 的 过 程 进行 模型 化 的 分 


析 研 究 :游戏 也 可 以 用 于 娱乐 、 消 遗 。 我 们 假设 家 用 计算 机 
主要 是 为 了 娱乐 ,儿童 们 通过 这 种 高 智能 的 、 激 动人 心 的 娱 
乐 学 习 有 用 的 知识 。 

” 玩 计 算 机 游戏 是 一 种 娱乐 ,编写 计算 机 游戏 也 是 -一 种 娱 
乐 。 但 遗憾 的 是 ,一 个 程序 不 管 其 功能 如 何 终究 是 一 个 程 
序 。 一 个 游戏 程序 与 其 他 任何 复杂 程度 相当 的 程序 设计 任务 
一 样 ,需要 有 清晰 的 设计 思想 和 细节 上 的 要 求 。 没 有 一 定 的 
文学 、 艺 术 基础 ,没有 严格 的 程序 设计 训练 ,要 想 写 好 一 个 计 
算 机 游戏 程序 是 很 困难 的 。 

计算 机 游戏 程序 可 按 参 加 游戏 的 对 手数 来 分 类 ,有 单 人 
游戏 、 二 人 游戏 和 多 人 游戏 。 也 可 按 它 所 表现 的 内 容 手 法 米 
分 类 ,例如 可 分 成 模拟 游戏 、 抽 象 游戏 、 运 动 游戏 等 等 。 如 
果 我 们 按 游戏 中 事件 出 现 的 特征 以 及 它 的 处 理 方法 来 分 类 ， 
则 可 把 游戏 分 成 确定 型 和 随机 型 游戏 两 类 。 

人 确定 型 游戏 是 指 游 戏 中 的 事件 以 确定 的 方式 出 现 ,只 要 
按照 一 定 的 方法 做 下 去 总 会 达到 结果 。 奈 于 结果 的 好 坏 , 则 
与 游戏 者 选择 的 方法 有 关 。 例 如 前 面 提 到 的 猜 数 游戏 , 金 叶 
十 塔 ( 即 河内 塔 ) 的 塔 盘 移动 游戏 都 是 这 样 。 这 类 游戏 一 经 开 
局 之 后 目标 就 不 再 改变 ,通常 它们 可 递归 地 调用 一 个 过 程 来 
克服 不 同 阶段 上 的 障碍 ,以 达到 最 后 胜利 。 这 类 游戏 会 使 许 
多 复杂 难 解 的 问题 变 得 直观 、 易 懂 。 计算机 在 这 类 游戏 过 程 
中 训练 游戏 者 系统 地 、 分 层次 地 分 析 和 解决 问题 的 思想 方 
法 。 

随机 型 游戏 则 是 指 游戏 中 事件 (例如 战争 游戏 中 敌 方 的 
出 现 地 点 和 方式 ,博弈 中 对 方 的 下 子 方式 等 等 ) 的 出 现 是 随机 
的 ,事先 无 法 确定 的 。 竞 赛 游戏 、 冒 险 游戏 大 都 属于 这 类 游 
戏 。 这 类 游戏 主要 用 来 训练 游戏 者 的 策略 和 战术 处 理 能 力 。 
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在 当前 市 场 上 可 以 找到 很 多 这 种 类 型 的 游戏 程序 。 下 面 我 们 
对 几 种 主要 的 ,也 是 常见 的 随机 型 游戏 的 特点 进行 一 些 讨 
论 ， 

1 .冒险 戏 

这 类 游戏 的 设计 思想 是 , 由 程序 产生 一 个 内 部 映射 来 表 

一 个 “危险 区 %。 危险 区 内 设 有 各 种 危险 ,例如 陷阱 ,魔王 , 炸 
亲 大 内 起 二 他 人 各 险 。 游 戏 者 抱 着 某 种 目的 ;选择 他 们 自己 的 
路 线 和 时 机 进入 这 一 区 域 ,他 的 目的 可 以 是 为 了 到 指定 点 找 


回 埋藏 的 财宝 ,或 纯粹 是 为 了 取得 经 验 和 得 到 一 些 奖 励 。 在 
实现 其 任务 的 过 程 中 ,游戏 者 可 以 用 某 种 武器 装备 自己 。 在 
往 前 走 的 每 一 步 ,程序 将 告诉 游戏 者 从 当前 位 置 出 发 游戏 者 
能 见 到 什么 ,并 显示 与 危险 物 遭 遇 的 任何 结果 。 在 一 个 真正 
的 冒险 游戏 中 ,游戏 者 为 了 达到 自己 的 目的 必须 弄 清 什 么 样 
的 输入 命令 将 达到 什么 样 的 结果 一 一 有 时 需要 进行 多 次 尝 
试 。 

在 冒险 游戏 中 ,计算 机 经 常 担任 公 证 人 或 裁判 这 种 角 
色 。 它 必须 能 够 拒绝 执行 游戏 者 采取 那些 不 合 规则 的 行为 。 
通过 试验 和 出 错 来 发 现 游戏 规则 正 是 这 种 游戏 的 迷人 地 方 。 
一 个 好 的 冒险 游戏 对 程序 的 标志 是 规则 的 一 贯 性 和 相 容 性 ， 
而 不 仅 是 它 的 广泛 适应 性 ， 

2. 战 争 游戏 

所 有 迹象 表明 战争 游戏 是 最 受 欢 迎 的 模拟 型 游戏 。 到 目 
前 为 止 ,它们 经 常 被 各 种 现代 化 军队 正式 用 于 训练 目标 。 过 
去 ,用 于 娱乐 的 各 种 台式 战争 游戏 机 曾经 销售 高 达 几 百 万 
台 。 成 为 玩 战争 游戏 优秀 选手 的 不 仅 是 活泼 好 动 的 青年 ,也 
有 老年 人 和 妇女 。 

过 去 的 战争 游戏 由 于 条 件 限 制 , 有 着 严重 的 缺陷 ,其 表现 


为 : 
() 它 仅仅 着 眼 于 模拟 司令 员 作 出 的 战场 决策 的 逻辑 条 
件 , 它 不 能 汇集 和 反映 瞬息 万 变 的 战场 信息 ;计算 机 游戏 的 游 
戏 者 通常 能 在 屏幕 上 看 清 敌 我 双方 的 全 部 配置 。 这 两 种 情况 
都 是 不 真实 的 。 

(2) 总 是 假定 司令 员 的 命令 能 够 直接 产生 效果 。 这 也 是 
不 真实 的 。 因 为 游戏 中 没有 考虑 战争 中 极为 重要 的 通讯 作 
用 。 如 果 通 讯 出 了 故障 ,结果 又 如 何 ? 

(3) 把 问题 作 了 不 合理 的 简化 ,好 象 全 部 兵种 都 是 永 不 疲 
倦 的 神 人 。 步 兵 越野 长 征 而 不 减速 ,骑兵 大 量 负 重 而 不 需 休 
整 。 

无 线 电 通讯 与 摩托 化 运输 意味 着 前 面 两 个 简化 结果 所 产 
生 的 不 准确 变 得 无 关 重 要 。 然 而 ,目标 隐蔽 移动 的 问题 仍然 
是 尖锐 的 。 如 果 要 解决 这 些 问 题 ,就 要 求 计算 机 有 更 大 的 存 
储 容量 和 更 好 的 存储 功能 。 早 期 人 们 试图 用 盒 带 作 存储 器 ， 
以 便 在 某 些 战 争 游 戏 中 弥补 这 些 缺 陷 。 但 是 ,这 样 的 游戏 玩 
起 来 很 困难 ,使 人 感到 疲劳 ,以 致 难以 推广 。 

随 着 微机 硬件 和 软件 性 能 的 提高 ,使 得 更 加 逼真 的 模拟 
战争 的 游戏 软件 设计 成 为 可 行 。 被 用 在 战争 游戏 程序 中 的 大 
量 数据 是 高 度 结构 化 的 ,各 种 数据 是 彼此 相互 影响 , 其 中 一 个 
数据 改变 了 会 影响 另 一 个 , 另 一 个 又 影响 其 他 数据 。 这 种 数 
据 间 的 相互 关系 如 图 1.2 所 示 。 图 中 用 分 支 单元 的 各 个 存储 
单元 来 记录 各 结 点 单元 的 数据 相互 影响 方式 。 过 去 开发 出 的 
程序 绝 大 部 分 是 初级 玩法 水 平 的 游戏 ,采用 结构 程序 设计 和 
可 修改 的 数据 结构 将 使 所 设计 的 游戏 达到 行家 所 需要 的 水 
平 。 


分 支 单元 


洒 


图 1.2 结构 数据 关系 图 

战争 游戏 最 重要 的 是 模拟 ,如 果 用 一 定 的 计划 纲要 来 表 
示 , 一 个 典型 的 战争 游戏 的 步骤 应 该 包括 :命令 输入 ;传送 信息 ; 
输出 报告 ;移动 部 队 :观察 情况 :决定 战斗 ; 因 天 气 与 疲劳 以 及 
其 他 各 种 障碍 ,对 原 计划 进行 修改 等 各 个 阶段 。 根 据 场面 规 
模 来 分 配 各 阶段 所 需要 的 时 间 和 动作 。 其 他 如 目标 的 表示 和 
隐蔽 ,部 队 的 类 型 及 其 表示 方法 等 都 是 战争 游戏 中 必须 解决 
的 。 例 如 军棋 就 是 用 计算 机 作对 手 、 裁 判 和 公证 人 的 军事 游 
戏 ,当然 也 是 一 种 棋 类 游戏 。 这 是 一 种 暗 棋 。 双 方 各 有 自己 
的 地 盘 。 对 手 向 公证 人 声明 自己 建议 的 移动 。 本 方 布局 的 最 
新 状态 只 对 本 人 显示 。 公 证 人 的 职责 是 宣布 该 移动 是 合法 还 
是 非法 。 如 果 移 动 合法 并 有 效 , 双 方 将 被 告知 一 个 占领 已 经 
生效 ,但 占领 的 一 方 并 不 说 出 他 是 用 什么 棋子 取胜 的 ,也 不 告 
知 对 方 所 移动 的 棋子 类 型 ,检验 结果 输 方 的 棋子 将 被 公布 。 
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3. 管 理 游戏 

在 这 个 标题 下 ,汇总 了 为 了 利润 作 资 源 投资 的 全 部 游戏 ， 
其 中 较 特 殊 的 例子 是 买卖 游戏 。 在 这 个 游戏 中 ,游戏 者 买 进 
或 卖 出 货物 。 管 理 游戏 是 游戏 者 在 各 种 行动 中 ,例如 ,货物 的 
生产 、 研 究 开发 和 广告 等 各 项 活动 投入 的 资本 和 时 间 , 甚 至 
还 有 税收 级 别 ,以 及 它们 能 回收 的 利润 。 对 广大 管理 人 员 和 
经 济 师 来 说 ,这 是 一 个 有 巨大 潜在 利益 的 领域 。 当 然 ,管理 游 
戏 也 用 来 消遣 和 娱乐 。 

管理 游戏 通常 包含 一 定数 量 的 对 手 。 计 算 机 被 用 来 存储 
数据 和 支持 精确 计算 。 在 某 些 游戏 中 计算 机 为 隐瞒 对 手 的 决 
定 服务 ,直至 这 种 决定 的 效果 可 公开 为 止 。 

4. 智 能 游戏 

智能 游戏 的 重要 标志 之 一 是 能 学 习 , 计 算 机 程序 能 在 游 
戏 中 学 习 ,改进 玩法 的 策略 ,争取 更 多 的 赢 局 机 会 ,这 样 才能 够 
解决 计算 机 怎样 玩 ,怎样 玩 好 ,怎样 去 对 付 不 同类 型 的 游戏 
者 。 下 面 我 们 来 看 一 个 玩 简单 游戏 的 程序 ,并 找 出 为 了 对 付 
一 个 特殊 的 对 手 怎样 学 习 玩 法 , 见 程序 1.1。 

程序 1.1 剪刀、 石头 和 纸 相互 克制 游戏 的 简单 智能 程序 


LIST 

10 ON ERR GOTO 540 

20 TEXT 

40 HOME 

50 PRINT 

60 PRINT ” ，GUESS ROCK，SCISSORES OR TISSUE"” 
70 PRINT ” BY PRESSING THE INITIAL LETTER7 
80 PRINT ” TO END GAME PRESS <ESCAPE>” 

90 GO0SUB 800 

100 HOME 
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110 GO0SUB 680 

130 REM Main Loop 

150 HTAB 1: VTAB1: PRINT “MY TOTAL 
170 HTAB 10: VTAB1: PRINT TALC1) 

190 HTAB 20:; VTAB1: PRINT “YOUR TOTAL “5 
210 HTAB 32: VTAB1: PRINT TAL(2) 


240 HTAB 31: VTAB 10; PRINT” 从 
HTAB 12: VTAB 10: PRINT” 
HTAB 12: VTAB 15: PRINT” 2 
HTAB 15: VTAB 16: PRINT” 


250 MOVE=1+((MOVES(S，1)<=MOVES(S， 2))^2) 

260 MOVE=MOVE+((MOVES(S,MOVE)<=MOVES(S,3))^2)#(3-MOVE) 
270 R=S 

280 MOVE=(MOVE+3#((1=MOVE 闪 2) )-1 

290 HTAB 1: VTAB 10: PRINT “YOUR GUESS “$ 

310 GET GUESS$ 

320 IF GUESS$=“R”OR GUESS$=“S”OR GUESS$=“T”″”THEN 340 
325 IF ASC(GUESS$)=27 THEN540 

330 G0T0 290 

340 X=0 

350 GOSUB 610 

370 PRINT MID$Y (P$,X,8) 

380 IF GUESS$=“P”THEN .S=1 ;GOTO 390 

385 S=ASC(GUESS$)-81 

390 HTAB 22: VTAB 10: PRINTZMY GUESS “5 

400 GUESS$=CHR$CMOVE+81) 

410 X=0 

420 GOSUB 610 

430 PRINT MID$CP$,X,8) 

440 MOVES(R,S)=MOVES(R,S)+1 


450 IF S=MOVE THEN HTAB 17: VTAB16: 
PRINT “A DRAW“: GOSUB 800 :GOTO 240 
470 WIN=S-MOVE+3#((MOVE>S 六 ) 
480 TALCWIN)=TALCWIN)+IE 
490 HTAB17: VTAB16: PRIJNT NAMESCWIN)3” WIN“ 
500 GOSUB 800 
510 GOTO 130 
540 REM End Routine 


550 HOME 


560 PRINT 
570 IF TAL(L)>=TAL(2) THEN 
PRINT“It looks as if 12m toogood for you“: G0TO 580 
575 PRINT “1 suppose you think you are clever” 
580 END 
610 REM update 
620 FOR IT = 1 TO 24 STEP 8 
630 IF GUESS3=MID3(P3,I,1) THEN X=1 
640 NEXT [ 
650 RETURN 
680 REM init 
690 P$=“ROCK SCISSORS TISSUE” 
700 DIM TAL(2),MOVES(3,3)，NAME3(2) 
710 R=INTCRND(3)*#+3+1) 
720 S=INTCRND(2)*3+1) 
730 MOVESCR,S)=1 
740 MOVES(S，R)=1 
750 NAME3(1)=”I” 
760 NAME3(2)=“YOU” 
770 RETURN 
800 REM Waits until space is pressed 
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820 HTAB 5，VTAB 20:; PRINT“Press space bar to continue” 
830 GET AS 

840 IF A3$<>””"THEN 820 

850 HTAB 5: VTAB 20: PRINT SPC(30) 

860 RETURN 


游戏 者 在 石头 (Rock)、 剪 刀 (Scissors) 或 纸 
(Tissue) 三 者 中 选 一 ,而 计算 机 独立 地 作出 自己 的 选择 (在 这 
方面 是 绝对 公平 的 ), 其 规则 是 :石头 击败 剪刀 ;剪刀 击败 纸 ;而 
纸 又 击败 石头 。 计 算 机 记 住 每 次 游戏 者 的 选择 行动 ,并 把 它 ， 
与 游戏 者 的 前 一 次 行动 连 在 一 起 。 这 样 一 来 ,计算 机 就 "知道 
”, 如 果 对 手 在 选择 石头 之 后 , 紧 跟 着 选 前 刀 的 有 多 少 次 。 表 
1.1 是 一 个 3x3 阵列 的 目标 表 。 对 于 三 种 可 能 选择 的 每 一 
种 ,把 接着 它 出 现 的 选择 种 类 的 次 数 记录 下 来 。 这 样 一 来 , 当 
轮 到 计算 机 要 作出 自己 的 选择 时 , 它 可 看 一 下 游戏 者 上 次 出 
的 是 什么 ,在 游戏 进行 到 足够 多 次 选择 后 ,一 直 盯 住 这 张 表 看 ， 
所 标 出 的 玩法 就 近 于 游戏 者 的 克星 玩法 。 


表 1.1 玩法 目标 阵列 


假定 游戏 者 在 出 石头 后 常 跟着 出 剪刀 ,在 阵列 中 的 信息 
是 “石头 后 面 跟 石 头 为 0 关 石 头 后 面 跟 前 刀 为 8", 而 “石头 后 
面 跟 纸 亦 为 0” 所 以 计算 机 -知道 ”一旦 本 次 游戏 者 出 了 石 
头 ,在 决定 下 一 次 选择 时 ,游戏 者 选择 的 就 可 能 是 剪刀 ,因此 它 
自己 就 出 石头 。 一 旦 游戏 者 意识 到 后 ,就 会 选用 另 一 个 策 
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略 。 而 当 游戏 者 采用 的 策略 多 于 一 个 时 ,计算 机 就 会 相应 地 
选择 它 的 策略 。 

在 这 种 策略 中 , 程序 经 常 研究 游戏 者 的 策略 ,如 果 游 戏 者 
固定 采用 一 个 惯用 策略 , 则 得 胜 一 方 总 是 计算 机 。 当 然 , 绝 大 


就 不 会 象 上 面 的 游戏 者 那样 总 是 败 给 程序 。 这 一 简单 的 程序 
告诉 游戏 者 ,为 了 取胜 ,必须 经 常 对 游戏 进行 思考 ,必须 玩 得 更 
加 智能 一 些 。 

怎样 改进 程序 才能 使 其 有 更 多 的 得 分 机 会 ?最 好 的 方法 
是 建立 更 大 的 数组 , 它 记 住 的 不 只 是 本 次 行动 的 ,前 一 次 的 ,而 
是 前 二 次 ,三 次 ,四 次 ,甚至 是 更 多 次 的 ,从 中 来 寻找 游戏 者 的 
玩法 类 型 ,这 样 一 来 就 要 求 程 序 必须 编 人 一 个 十 分 复杂 的 被 
称 为 "赋值 函数 "的 算法 表达 式 。 在 游戏 中 ,一 个 赋值 函数 是 
一 个 关于 所 有 可 能 变量 和 情态 的 带 权 系 数 的 单 值 函 数 ,并 由 
程序 员 用 他 认为 是 最 好 的 方法 组 合 起 来 作为 程序 的 行为 选择 
标准 。 

例如 ,如 果 我 们 的 程序 中 记 住 两 次 行动 模式 和 三 次 行动 
模式 可 以 有 一 个 赋值 数 ,那么 我 们 认为 两 次 行动 模式 比 三 
次 行动 模式 重要 ,所 以 给 前 者 加 权 2, 而 后 者 加 权 1, 即 形式 上 
认为 两 次 行动 模式 比 三 次 行动 模式 重要 二 倍 。 假 定 程序 保存 
的 信息 是 , 当 它 在 两 次 行动 模式 中 看 到 20 次 中 在 石头 后 面 选 
剪刀 的 有 8 次 ,并 且 在 当前 的 三 次 行动 模式 中 看 到 游戏 者 在 
石头 后 面 没有 选择 剪刀 ,而 6 次 中 有 5 次 选择 纸 。 这 意味 着 
游戏 者 恰好 有 一 个 在 石头 后 面 排除 出 剪刀 的 倾向 。 在 它 刚 出 
了 二 次 纸 后 , 除 一 次 外 ,每 次 出 的 都 是 纸 ,我 们 可 以 排除 他 另 一 
次 是 选择 纸 ,. 这 一 赋值 函数 将 是 : 

如 果 我 们 假定 在 三 次 行动 模式 中 剪刀 只 被 选择 一 次 , 则 


它 出 剪刀 的 可 能 性 是 : 


2x*x(8/20)+1*(1Z/6)=0.96 


如 果 我 们 用 同样 的 函数 来 处 理 出 纸 的 次 数 ,那么 能 够 在 
两 次 行动 模式 中 找到 6 次 ,而 在 三 次 行动 模式 中 是 5 次 , 它 给 
出 : 
2x(6/20)+1*x($/0)=143 


这 样 ,游戏 者 在 石头 后 面 经 常 出 纸 而 不 是 剪刀 ,并 且 赋 值 
图 数 将 2 份 权 给 二 次 行动 模式 ,也 指出 了 出 纸 的 倾向 。 根 据 
这 一 分 析 , 程 序 将 选择 剪刀 作为 计算 机 的 行动 。 因 为 剪刀 能 
够 击败 纸 。 

如 果 不 嫌 太 复杂 ,你 可 加 入 四 次 行动 模式 的 历史 记载 等 
等 ,也 给 予 它们 在 赋值 函数 中 的 权 , 以 反映 它们 的 重要 程度 。 
很 明显 ,全 部 程序 的 成 功 依赖 于 一 个 合理 的 赋值 水 数 。 但 这 
对 于 许多 游戏 程序 来 说 是 很 难 设计 出 来 的 ,常常 只 能 笔试 验 

首先 建立 一 个 你 认为 合理 加 权 的 赋值 函数 ,并 用 它 来 运 
行 游戏 。 先 玩 几 十 次 ,看 看 是 否 容易 取胜 ,然后 逐步 调整 权 的 
分 配 ,使 之 达到 更 合理 的 程度 。 当 然 ,赋值 郴 数 中 变量 的 选择 
是 更 加 重要 的 。 

程序 的 第 二 部 分 是 它 取 代 了 对 手 。 这 一 部 分 在 某 种 意义 
上 说 是 智能 的 。 它 "理解 "这 一 游戏 ,也 有 应 该 如 何 玩 这 一 游 
戏 的 某 些 "思想 ”显然 ,在 任何 游戏 中 要 写 出 一 个 欺骗 性 的 
程序 是 十 分 容易 的 。 因为 所 有 有 关 游戏 的 信息 与 它 的 编码 规 
则 结合 在 一 起 ,都 存储 在 计算 机 之 中 。 所 以 这 两 个 部 分 必须 
严格 分 开 。 


当然 ,可 按 人 的 玩法 来 写 程序 。 用 某 些 方法 ,计算 机 能 比 
人 玩 得 好 ,这 主要 是 建立 在 计算 机 游戏 中 的 策略 要 比 常规 走 


第 三 节 ”游戏 实例 程序 及 其 功能 

在 上 一 节 中 ,我 们 已 经 对 各 类 游戏 软件 根据 它们 的 特征 
及 游戏 发 展 过 程 中 所 发 生 的 情节 与 时 间 的 关系 ,对 游戏 程序 
作 了 初步 分 类 。 本 节 我 们 将 讨论 各 种 典型 的 游戏 实例 程序 及 
其 功能 。 
一 、 七 巧 板 

一 游戏 的 程序 清单 见 附录 B.1, 其 主要 功能 是 :根据 游 
戏 软件 提供 的 七 块 基本 模板 ,通过 键盘 控制 这 些 图 形 的 移 
动 、 旋 转 .拼凑 各 种 各 样 的 图 案 , 以 此 来 测试 和 开发 青少年 的 
想象 能 力 和 构图 能 力 。 

程序 分 为 二 大 模块 来 完成 上 述 功能 。 为 便于 读者 理解 ， 
在 此 我 们 先 画 出 它 的 粗 框图 ,然后 再 就 这 二 个 模块 作 一 简单 
说 明 。 

模块 1 初始 化 程序 (语句 1 一 80) 

这 段 程序 开始 时 先 调 人 两 个 B 类 型 文件 ,其 功能 为 :D 装 
入 七 个 基本 模板 的 造型 表 ; 2) 显 示 本 游戏 的 使 用 说 明 。 随 后 ， 
对 本 游戏 的 屏幕 图 形 显示 进行 处 理 ,最 后 在 屏幕 上 画 出 七 个 
模板 图 形 。 

模块 2 图 形 拼接 的 处 理 (语句 90 一 300) 

用 此 模块 来 处 理 键盘 单元 ($C000) 中 存放 的 数值 ,判定 
游戏 者 所 按 的 键 ,然后 根据 判断 的 结果 作出 相应 的 行动 :上 、 
下 、 左 、 右 、 加 速 ( 快 )、 减 速 ( 慢 ) 移 动 的 基本 图 形 块 ,或 将 该 
模板 图 形 旋转 某 一 角度 ,拼凑 图 形 ,直至 最 后 退出 此 游戏 。 
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取 键 盘 单元 (3C000) 的 值 


根据 所 取 的 键 值 ， 分 别 对 图 形 块 作 
上 ， 下 ,， 左 ， 右 ， 加 / 减速 ， 移 动 ， 旋 转 
和 退出 的 处 理 


变量 赋值 并 画 出 拼凑 好 的 图 形 


图 1.4 七巧板 构图 游戏 程序 粗 框图 


二 、 炸 坦克 

这 是 一 个 空中 飞行 物 对 地 面 上 运动 着 的 物体 实施 攻击 的 
战斗 模拟 游戏 ,其 程序 清单 见 附录 B.2。 本 游戏 通过 飞机 炸 毁 
地 面 运 动 着 的 坦克 ,让 游戏 者 训练 自己 掌握 飞机 投弹 的 时 机 
的 本 领 ,理解 炸弹 在 空中 的 运动 轨迹 。 使 游戏 者 对 平 抛物 
体 、 运 动 合 成 等 概念 的 理解 更 加 生动 、 具 体 . 

本 程序 分 为 三 个 模块 实现 上 述 功 能 。 这 里 我 们 先 画 出 它 
的 粗 框图 ,然后 再 就 各 个 主要 功能 模块 作 一 简单 说 明 。 


清 数据 区 、 清 屏幕 


图 1.5 飞机 炸 坦克 游戏 程序 粗 框图 


模块 1 屏幕 图 形 处 理 ( 画 地 平 直 线 :$ 835 一 $899, 画 发 
机 、 坦 克 :$ 89A 一 $ 8A9) 

这 段 程 序 在 高 分 辩 率 状态 下 画 出 底 直 线 、 飞 机 和 坦克 ， 
为 模块 2 作 准备 。 

模块 2 飞机 和 坦克 在 屏幕 上 移动 (飞机 :$9A5 一 $ 
9CE, 坦 克 :$ 920 一 $97A) 
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在 这 段 程序 中 用 到 了 实现 图 形 在 屏幕 上 移动 的 最 基本 方 
法 : 先 在原 位 置 前 面 的 一 个 单位 长 度 (可 自行 设 定 ) 处 画 出 图 形 ， 
然后 再 擦 除 原 位 置 的 图 形 。 本 游戏 用 这 种 步 进 的 ,以 新 位 置 
替换 旧 位 置 的 办 法 实现 飞机 和 坦克 的 移动 。 

模块 3 击 中 处 理 ($ 8C9 一 $8DPF) 

飞机 投弹 后 , 若 击 中 坦克 , 则 由 此 模块 处 理 , 它 将 在 屏幕 上 
画 出 爆炸 场面 ,并 发 出 爆炸 声 。 


这 是 一 个 冒险 型 的 智能 游戏 ,其 程序 清单 见 附录 B.3。 游 
戏 场景 紧张 、 惊 险 。 它 通过 采 宝 人 在 布 满 死 胡同 和 有 几 十 名 
卫兵 往返 巡逻 的 迷宫 中 的 采 宝 活动 ， 来 锻炼 游戏 者 的 综合 4 
析 能 力 、 判 断 能 力 和 反应 灵敏 度 。 

本 游戏 程序 分 为 二 个 主要 模块 来 实现 上 述 功 能 。 

模块 17 内 存 和 屏幕 的 初始 化 : (语句 $800 一 $81D、 
$81EF 一 $837) 

此 模块 利用 上 述 两 组 程序 重新 划分 内 存 的 数据 区 与 程序 
区 ,实现 比较 复杂 的 动画 画面 处 理 。 在 $ 8000 一 $93FF 之 间 
建立 数据 区 ,在 $9600 一 $9EFF 之 间 建 立 程序 区 。 本 游戏 
对 屏幕 图 形 的 移动 处 理 采 用 了 两 页 (高 分 辩 率 第 一 页 和 第 二 
页 ) 交 替 显示 的 方式 。 

模块 2 音乐 程序 :( 语 句 $ E00 一 $E2F) 

在 $E30 一 $ E82 这 段 音乐 数据 中 ,此 模块 把 前 一 个 数据 
作为 节拍 长 度 ,后 一 个 数据 作为 音阶 高 度 取 和 人 发 声 单元 , 奏 出 
音乐 。 


下 面 我 们 给 出 它 的 粗略 框图 。 


START 


内 存 和 屏幕 初始 化 


游戏 名 在 屏幕 上 滚动 显示 


< 


置 声音 开关 OFF 


游戏 开始 
按键 盘 操 纵 盗 宝 人 移动 
N 
拿 到 东西 ? 
基 


ADD 10 分 
N 
， 


图 1.6 走 迷 宫 游戏 程序 粗 框图 


四 、 挖 金 砖 

本 游戏 是 由 游戏 者 与 计算 机 双方 轮流 控 取 一 座 金山 的 金 
砖 ,而 同时 又 不 能 使 建 在 金山 项 上 的 大 楼 倒塌 的 智能 竞赛 游 
戏 , 其 程序 清单 见 附录 B.4。 为 了 获得 高 分 ,游戏 者 应 设法 控 
取 能 引起 较 多 金 砖 坠落 的 那 块 砖 ,同时 又 不 会 导致 金山 项 上 
的 大 楼 倒塌 4， 另 外 ,双方 都 在 迫使 对 方 去 控 倒 大 楼 .以 获得 高 
奖励 分 。 通 过 比赛 ,可 训练 游戏 者 的 记忆 能 力 、 逻 辑 思 维 能 
力 和 判断 能 力 ,以 及 竞争 中 的 策略 设计 能 力 。 

程序 粗略 地 分 为 五 个 模块 来 实现 控 金 砖 游戏 的 功能 目 
标 。 它 们 是 : 

模块 1 初始 化 程序 (语句 10000 一 10132) 

它 用 来 设 定金 砖 的 可 取 颜 色 、 相 应 重量 和 得 分 ,并 装 人 
发 声 子 程序 。 

模块 2 屏幕 图 形 处 理 (语句 12010_12070) 

在 上 述 模块 设 定 的 金 砖 可 取 颜 色 内 画 出 一 座 彩色 的 金山 ， 
并 在 其 上 面 建 有 一 幢 大 楼 ,同时 屏幕 的 左上 角 有 若干 个 小 楼 
房 ,象征 着 还 可 进行 的 比赛 次 数 。 

模块 了 游戏 者 挖 取 金 砖 的 处 理 (语句 14000 一 15110) 

游戏 者 移动 光标 块 控 取 金 砖 ,并 计算 本 次 挖 砖 的 得 分 。 
若 本 次 挖 砖 结 果 使 大 楼 倒塌 , 则 转 至 模块 $ 处 理 。 

模块 4 计算 机 控 取 金 砖 的 处 理 ( 语 句 16000 一 17100) 

计算 机 通过 一 定 的 算法 决定 控 取 哪 块 金 砖 ,结果 若 使 大 
楼 倒塌 , 则 同样 转 模 块 $ 处 理 。 

模块 5 大 楼 险 落 过 程 的 描述 (游戏 者 :语句 18000__ 
18090; 计算 机 :语句 19000 一 19060) 

计算 机 或 游戏 者 挖 倒 大 楼 后 ,屏幕 显示 大 楼 坠落 过 程 , 伴 
随 发 声 。 险 地 后 ,显示 大 楼 粉碎 的 形状 ,并 伴随 爆炸 声 。 若 由 
计算 机 控 砖 引起 大 楼 倒塌 , 则 应 向 游戏 者 奖励 小 楼 一 座 ,并 计 
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算 游 戏 者 总 得 分 后 ,重新 转 人 模块 2 开始 新 的 一 局 。 若 因 游 
戏 者 控 砖 引起 大 楼 倒塌 , 则 判断 是 否 还 有 大 楼 可 生成 。 若 有 
则 计算 总 得 分 后 转 模块 2, 否 则 结束 游戏 。 

为 便于 大 家 的 理解 ,在 此 我 们 画 出 它 的 粗略 框图 。 


START 
设 定金 砖 可 取 颜 色 ， 
并 装 入 发 声 子 程序 


画 出 金山 与 其 项 上 的 
房子 ， 同 时 在 左上 角 
出 小 房子 


显示 大 楼 倒塌 过 程 和 坠 地 
人 


显示 大 楼 倒塌 过 程 和 坠落 
粉碎 的 形状 ， 同 时 伴随 发 
声 。 重 赏 游戏 者 ; 增加 一 次 
对 抗 机 会 


图 1.7 控 金 砖 游戏 程序 粗 框 图 
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五 、 金 叶 古 塔 的 搬移 

这 是 一 个 确定 型 的 游戏 ,其 程序 清单 见 附录 B.5。 它 要 求 
把 塔 柱 A 上 由 小 到 大 , 自 上 至 下 按 顺 序 用 金 柱 串 在 一 起 的 金 
叶 塔 盘 , 用 金 柱 B 作为 中 继 站 ,将 全 部 金 叶 盘 搬 至 金 柱 C 上 ， 
或 相反 ;最 后 搬 到 B。 在 搬移 过 程 中 ,要 求 始 终 保持 小 的 叶 盘 
在 上 ,大 的 叶 盘 在 下 。 当 叶 盘 的 数量 很 少时 ,这 一 工作 是 容 
完成 的 ,但 当 叶 片 数量 增加 时 , 它 的 难度 便 迅 速 增加 。 本 游戏 
程序 通过 金 叶 塔 盘 片 的 重复 搬移 ,帮助 计算 机 初学 者 更 好 地 
掌握 、 理 解 递归 概念 。 同 时 训练 游戏 者 在 不 同 层 次 上 反复 使 
用 同一 方法 来 解决 问题 的 能 力 。 

为 此 ,程序 分 成 三 个 模块 来 实现 上 述 功能 。 

模块 1 判断 金 叶 塔 盘 片 是 否 移 完 (语句 820 一 880) 

它 根据 金 柱 C 或 金 柱 B 上 是 和 否 已 经 有 八 片 金 叶 来 决定 
此 游戏 是 否 结束 。 

模块 2 ”确定 金 叶 塔 盘 的 搬移 位 置 (语句 640 一 720) 

此 模块 通过 键盘 控制 ,确定 哪 片 金 叶 塔 盘 将 被 搬移 ,这 片 
金 叶 将 放 在 哪个 金 柱 上 ,同时 为 下 一 模块 作 准备 。 

模块 了 屏幕 图 形 的 处 理 (语句 730 一 750) 

根据 以 上 模块 确定 的 金 叶 塔 盘 搬移 的 起 始 和 终止 位 置 ， 
在 这 一 模块 中 控 除 源 金 柱 上 的 金 叶 盘 片 ,随后 在 目的 金 柱 上 
画 出 同样 大 小 的 金 叶 塔 盘 。 

为 了 帮助 读者 更 好 地 理解 金 叶 古 塔 的 搬移 程序 ,这 里 我 
们 画 出 此 程序 的 粗略 框图 。 
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转 判 断 金 叶 是 否 
移 完 子 程序 


图 1.8 金 叶 古 塔 搬移 游戏 程序 粗 框 图 


六 、 保 龄 球 

这 是 一 个 体育 竞赛 型 游戏 ,其 程序 清单 见 附录 B.6。 由 于 
保龄球 场地 和 昂贵 的 活动 费用 的 限制 ,保龄球 运动 在 我 国 还 
不 够 普及 。 但 是 ,很 多 老年 和 青年 保龄球 爱好 者 都 兆 望 参加 
此 项 体育 活动 。 为 了 弥补 这 一 缺陷 ,不 妨 在 计算 机 上 玩 一 玩 
保龄球 ,以 试 一 下 你 的 控制 能 力 。 本 游戏 根据 保龄球 的 玩法 
规则 ,通过 游戏 操纵 杆 控制 球 的 滚动 轨迹 来 进行 这 一 活动 。 
玩 此 游戏 ,除了 能 够 提高 游戏 者 的 球 艺 外 ,还 能 提高 他 们 的 注 
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意 力 、 观 察 力 和 判断 能 力 。 
此 程序 分 成 二 大 模块 来 完成 上 述 功能 。 
模块 1 BOWLING 球场 的 构成 (语句 9000 一 9350) 
在 这 段 程序 中 主要 调用 了 两 个 机 器 语言 子 程序 : 1) HP 


($B0E). 它 主要 记忆 程序 提供 的 X0,Y0 的 坐标 值 ,为 下 一 子 程 
序 作 准 备 。2)HL($ B14)。 它 根据 上 一 子 程序 提供 的 数据 以 


START 

显示 游戏 程序 

的 使 用 说 明 

画 BOWLING 球 
场 


转 打印 游戏 名 、 
游戏 者 姓名 、 
计 分 表 子 程序 


图 1.9 保 零 球 游戏 程序 粗 框图 
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及 新 的 X0,Y0 的 坐标 值 ,经 计算 后 ,在 屏幕 上 画 出 相应 的 线 
段 。 通 过 这 两 个 子 程序 在 屏幕 上 构成 一 个 保龄球 场 。 
模块 2 ”游戏 者 控制 保龄球 的 滚动 (语句 2000 一 2250) 
它 根据 游戏 者 用 游戏 操纵 杆 输入 的 模拟 量 的 电压 高 低 ， 
来 控制 保龄球 的 运转 。 这 是 本 游戏 程序 的 精华 所 在 。 
为 了 便于 读者 的 理解 ,我 们 画 出 此 程序 的 框图 ， 


七 、 五 子 棋 

这 是 一 个 人 与 计算 机 通过 下 五 子 棋 进 行 竞 赛 的 智能 游戏 ， 
其 程序 清单 见 附录 B.7。 它 是 二 人 (其 中 一 个 是 计算 机 ) 博 奕 ， 
而 且 五 子 棋 中 人 着 法 是 随机 的 。 根 据 下 五 子 模 的 规则 进行 
人 、 机 对 奕 。 这 个 游戏 既 能 让 青少年 得 到 智力 训练 ,也 能 使 
老年 、 青 年 游戏 爱好 者 得 到 乐趣 ,训练 其 逻辑 思维 能 力 和 判 
断 能 力 。 

为 了 实现 这 一 目标 ,程序 分 成 四 个 模块 来 完成 上 述 功 
能 。 为 便于 大 家 的 理解 ,我 们 先 画 出 它 的 粗略 框图 ,然后 根据 
此 框图 依次 就 各 个 主要 功能 模块 略 加 说 明 。 

模块 1 计算 机 落 子 程序 (语句 100 一 200) 

模块 中 调用 了 一 个 子 程序 :计算 机 落 子 算法 ( $2440)。 由 
它 对 游戏 者 的 落 子 情况 进行 分 析 , 然 后 根据 所 得 的 结果 ,决定 
计算 机 的 落 子 位 置 。 

模块 2 ”记录 并 存储 落 子 位 置 (语句 90) 

把 游戏 者 的 输入 或 计算 机 演算 出 来 的 坐标 值 在 人 一 张 位 
置 表 ($ 2C00 一 $2CFF) 中 。 

模块 了 屏幕 图 形 处理 , 画 出 黑子 或 白 子 (语句 1800 一 
1850) 

根据 模块 2 确定 的 落 子 位 置 画 出 对 应 的 黑子 或 白 子 。 
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定位 (7,7) 黑子 


键盘 输入 落 子 
位 置 


| 


将 游戏 者 (1) 或 计算 机 (0) 的 
落 子 情 况 存 入 位 置 表 
($2C00-$2CFF) 中 


图 1.10 五 子 棋 游 戏 程序 粗 杠 图 


模块 4 判断 输赢 (语句 1020 一 1090) 
每 次 落 子 后 ,用 本 程序 段 对 落 子 方 的 下 法 进行 全 面 判断 ， 
确定 是 否 能 决定 输赢 。 若 可 , 则 打印 胜 者 和 负 者 标志 。 


八 、 计 算 机 做 英语 短文 
本 程序 是 一 个 通过 计算 机 来 学 习 英语 的 教学 型 游戏 ,其 
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程序 清单 见 附录 B.8。 它 由 游戏 者 根据 计算 机 提示 ,通过 键盘 
输入 的 几 十 个 英语 单词 ,经 计算 机 组 合 后 ,成 为 一 篇 短小 的 英 
语文 章 供 游戏 者 阅读 。 由 此 来 训练 游戏 者 的 英语 阅读 能 力 ， 
考核 其 词汇 量 , 提 高 其 英语 水 平 。 

为 了 帮助 读者 理解 这 一 程序 ,我 们 先 画 出 此 程序 的 框图 ， 


然后 就 其 中 的 主要 功能 模块 加 以 说 明 。 
START 


根据 提示 输入 相应 的 
内 容 


选择 所 需 阅读 的 短文 
的 类 型 

显示 相应 的 短文 

供 游戏 者 阅读 


图 1.11 计算 机 做 英语 短文 游戏 程序 粗 框 图 


本 程序 分 成 三 个 主要 功能 模块 来 完成 上 述 功能 。 
模块 1 输入 英语 单词 (语句 27 一 200) 
根据 屏幕 上 显示 的 提示 信息 ,输入 相应 数量 的 形容 词 、 
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副词 、 名 词 等 英语 单词 。 
模块 2 ”选择 需要 阅读 的 短文 类 型 (语句 220 一 260) 
由 屏幕 上 显示 的 菜单 , 按 相应 的 键 就 可 阅读 到 不 同 风 格 
的 英语 短文 。 
模块 了 3 显示 英语 短文 (语句 265 一 690) 
根据 上 述 模块 的 选择 结果 ,显示 相应 的 英语 短文 供 游 戏 
者 阅读 。 
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第 二 章 ”游戏 程序 的 组 成 要 求 
和 设计 原则 


第 一 节 ”游戏 和 游戏 结构 


几乎 所 有 的 游戏 都 能 化 简 成 若干 个 关键 元 素 ,那些 元 素 
之 间 的 关系 可 以 用 一 个 简单 的 流程 图 来 表示 。 在 本 章 的 其 余 
部 分 我 们 将 看 到 每 一 个 基本 元 素 和 全 部 流程 图 , 以 便 在 以 后 
的 各 章节 中 将 这 些 总 体 思 想 变 成 一 种 设计 过 程 ， 然 后 变 成 一 
个 游戏 。 后 面 每 一 个 章节 都 包含 一 个 或 更 多 个 这 些 元 素 和 其 
细节 ,这 里 研究 处 理 它们 的 一 些 不 同方 法 。 

当然 ， 根 据 各 种 计算 机 的 特殊 性 ， 这些 元 素 将 会 有 稍 许 
改变 (例如 , 是 否 有 彩色 或 高 分 辩 率 图 形 显示 等 ) 但 是 在 最 
普通 的 游戏 中 , 下面 各 种 元 素 都 应 该 具备 : ” 某 种 形式 的 输 
人 /输出 ,有 文字 说 明成 分 (在 屏幕 上 写 , 例如 描述 一 所 房子 和 
它 的 内 容 ), 可 显示 成 分 (或 许 是 一 个 房子 内 的 一 张 画 或 者 是 
闪烁 显示 的 和 警告) 声音 成 分 (爆炸 声 、 喇 只 声 等 )。 把 下 述 三 
种 结构 , 即 游戏 结构 (玩法 规则 及 其 实现 )、 故 事 或 谜语 结构 
人 在 游戏 中 游戏 者 打算 做 什么 ) 以 及 程序 结构 (用 一 种 计算 机 能 
理解 的 方法 将 上 述 元 素 合 理 地 结合 在 一 起 ) 结 合 起 来 , 构成 
一 个 基本 的 游戏 模型 的 结构 ,如 图 2.1 所 示 。 
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图 2.1 游戏 结构 框图 


在 设计 游戏 的 最 初 阶段 , 有 七 个 领域 的 问题 必须 考虑 。 

第 一 步 要 有 一 个 清晰 的 、 独 创 的 想法 ; 另 一 方面 , 如 果 只 
一 个 有 关 游 戏 的 想法 而 不 考虑 照顾 游戏 者 的 情绪 ,或 者 决定 
了 用 口头 进行 游戏 设计 , 但 却 没有 该 游戏 如 何 玩 的 任何 想法 ， 
那么 编程 序 工作 迟早 将 会 停止 , 或 者 需要 进行 大 量 改写 。 
即使 勉强 能 坚持 到 结束 , 其 结果 也 将 是 一 个 单调 的 无 法 玩 的 
游戏 。 当 然 , 不 应 打算 用 一 种 方法 来 处 理 这 七 个 领域 中 的 每 
一 个 问题 ,它们 相互 间 几 乎 是 完全 独立 的 。 这 是 为 了 辅助 设 
计 的 方便 而 作 的 抽象 ,而 不 是 必须 紧 扣 的 戒律 或 目录 。 下 面 
我 们 将 看 到 某 些 可 用 的 设计 策略 , 但 首先 我 们 必须 对 图 2.1 
中 的 每 个 框 进行 简短 的 讨论 ,并 将 其 应 有 的 内 容 填 人 。 


一 、 故 事 结 构 上 

许多 游戏 是 从 一 个 特定 的 故事 情节 或 剧本 开始 做 起 的 。 
你 可 以 认为 跌 进 地 球 中 心 的 火山 内 部 的 一 次 冒险 活动 是 一 个 
很 好 的 想法 ; 或 者 你 喜欢 使 游戏 者 驾 一 稻 小 帆船 越过 太平 洋 
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作为 一 个 好 游戏 ， 或 者 认为 由 游戏 者 控制 一 个 侦察 员 深入 到 
一 个 有 众多 卫士 守护 着 的 迷宫 宝库 中 盗 取 宝 物 很 有 趣 ; 或 者 
认为 与 计算 机 比赛 下 棋 是 一 个 难题 ; 或 者 认为 做 一 个 情节 简 
单 , 但 智能 难度 极 高 的 猜谜 游戏 很 吸引 人 。 虽 然 你 有 了 初始 
的 灵感 , 但 是 你 不 要 认为 由 此 就 可 以 进入 微机 程序 设计 , 这 
里 还 有 许多 事先 要 做 的 重要 事情 。 

能 够 作为 程序 基础 的 故事 、 剧 本 或 恋 语 并 不 需要 作家 亲 
自动 手 , 特别 是 对 那些 非 冒 险 游戏 更 是 如 此 。 战 争 游戏 和 模 
拟 游戏 是 需要 有 些 思想 情节 的 。 而 对 于 冒险 游戏 , 故事 可 能 
是 最 重要 的 因素 , 这 是 人 们 含 得 花 时 间 去 玩 的 原因 。 要 记 住 
如 下 两 个 事实 : 

() 一 个 故事 是 一 串 被 链接 起 来 的 事件 , 在 那里 一 个 特 
征 (或 一 群 特征 ) 将 按 某 种 方法 改变 。 

(2) 一 个 地 方 ， 一 个 特殊 的 时 间 , 一 个 或 多 个 特征 的 出 现 ， 
一 个 或 多 个 目标 ， 以 及 某 些 可 能 的 动作 或 推论 , 都 可 以 造 
成 一 个 事件 。 

现在 我 们 能 够 画 出 我 们 的 故事 结构 ,用 描述 的 方法 或 者 
用 流程 图 把 要 包含 在 故事 内 的 所 有 事件 写 下 来 ,并 按 一 定 的 
方法 把 它们 连接 起 来 。 使 其 依次 包含 我 们 决定 的 特征 、 变 化 
(例如 可 能 变 富 、 受 伤 、 学 会 飞行 等 等 ) 处 在 什么 场所 或 位 
置 ， 所 处 的 时 期 (拿破仑 战争 ， 遥 远 的 将 来 ,史前 时 期 )， 以 及 
什么 样 的 目标 可 以 被 发 现 或 被 用 到 (宇宙 飞船 , 珠宝 箱 ， 地 图 ， 
武器 , 马 ,， 船 ， 宗教 遗 迹 ) ,什么 样 的 行为 会 发 生 (可 能 主角 
被 谋杀 , 可 能 它们 会 说 、 会 写 , 可 能 从 一 处 走向 另 一 处 , 目 
标 可 能 被 搬 走 ， 可 能 包含 使 用 魔法 或 种 种 幻想 中 的 未 来 设备 ) 
等 等 。 

我 们 必须 决定 故事 结束 的 几 种 方式 ,当主 角 被 杀 时 , 故 
事 是 不 是 该 结束 了 ? 主角 是 否 完成 任务 或 问题 已 解决 ? 主角 
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为 说 明 起 见 , 我 们 假定 一 个 简单 的 故事 框架 ， 侦 察 勇士 
(主角 ) 进 入 敌 营 ( 迷 宫 ), 众 多 的 卫士 守卫 ， 财 宝 分 藏 于 迷宫 
许多 死胡同 处 ,迷宫 内 同时 藏 有 炸药 。 勇 士 可 取得 炸药 炸 开 
一 些 通道 ,造成 陷阱 以 暂时 困 住 卫士 。 他 可 借用 扶梯 在 各 层 
之 间 周 旋 ， 以 最 后 取 完 宝物 并 退 至 安全 地 带 为 胜 。 

这 是 故事 的 全 部 内 容 ,你 也 可 对 其 他 类 型 的 游戏 提供 背 
景 设置 ， 并 提供 同样 的 检查 清单 (但 不 必 这 么 详细 )。 

在 决定 故事 细节 之 后 , 我 们 必须 决定 如 何 把 它们 串 在 一 
起 ， 并 使 之 适应 其 他 六 个 基本 领域 ,例如 ,卫士 如 何 从 不 同 
的 方位 沿 通道 向 勇士 和 逼 近 ? 在 什么 情况 下 他 们 将 相遇 ? 将 有 
一 些 什么 图 形 说 明 格 斗 场面 ? 主角 (勇士 ) 如 何 从 一 个 地 方向 
另 一 个 地 方 移动 。 


二 、 游 戏 结构 
所 有 的 游戏 结构 本 质 上 都 是 相同 的 ， 即 游戏 者 作 一 步 移 
动 ， 移动 的 后 果 被 计算 。 如 果 游 戏 者 已 取胜 或 已 失败 ， 则 结 
束 游 戏 ; 否则 游戏 者 或 另 一 位 对 手 作 另 一 次 移动 。 我 们 能 用 
一 个 本 质 上 相同 的 循环 (通常 称 作 管理 程序 ) 调 节 所 有 游戏 ， 
其 一 般 形 式 如 下 : 


9 REM Main Loop 50 PROC player_move 
10 WIN = FALSE ; LOSE = FALSE 60 PROC consequence 
20 PROC set_up_Variable 70 PROC other_move 
30 PROC print-instructions 80 Until win = TRUE 
40 REPEAT OR lose = TRUE 
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根据 游戏 的 情节 , 语句 PROC other -move 可 能 被 用 来 
在 目标 周围 移动 ;或 者 用 于 二 人 对 局 的 游戏 ( 指 轮 到 第 二 人 
移动 ), 或 在 以 计算 机 为 一 方 的 游戏 (如 走 棋 游 戏 ) 中 ， 轮 到 计 
算 机 走 ; 或 者 在 一 个 冒险 游戏 中 用 来 表示 不 是 游戏 者 直接 控 
制 的 另 一 角色 的 移动 。 

在 游戏 中 , 可 选项 的 类 型 、 选 择 的 方法 和 修改 变量 依赖 
于 我 们 选中 的 故事 的 结构 , 但 是 基本 系统 仍 是 相同 的 。 然 而 ， 
游戏 中 能 够 被 选择 的 东西 很 显然 是 可 变 的 ,否则 所 有 的 游 
戏 都 变 成 粗 陋 地 雷同 和 乏味 。 例 如 ,一 个 选择 在 没有 任何 游 
戏 者 或 其 主人 修改 的 情况 下 会 立即 导致 进一步 的 其 余 选 择 。 
在 这 种 情况 下 ,游戏 者 能 用 一 个 选择 表 来 表示 自己 的 行动 策 
略 。 例 如 ,可 选 的 行动 有 : JJ) 攻击 ; 2) 超 越 空 间 ; 3) 进 行 研究 。 

如 果 攻 击 被 选中 ,第 二 个 选择 系列 就 立刻 被 推出 ,攻击 
的 各 子 目录 的 各 项 内 容 是 : 1) 发 射 子弹 ; 2) 发 射 鱼雷 ; 3) 对 撞 。 

这 种 添加 说 明 可 以 无 限制 地 继续 下 去 ,当然 ， 它 受 微型 
机 存储 容量 的 限制 ,或 被 说 入 的 PROC dure，REPEAT.… 
UNTIL 循环 , 或 FOR…NEXT 循环 的 拒 套 个 数 所 限制 ， 
因为 许多 微型 机 只 允许 有 限 层 峙 套子 程序 。 

第 二 种 变化 涉及 的 选择 受 游 戏 者 的 影响 比 受 剧本 中 角色 
的 影响 更 大 ,例如 ,下 一 步 的 命令 请 求 或 选择 打印 角色 当前 
状态 都 是 游戏 结构 一 部 分 , 它 对 于 游戏 程序 本 身 没 有 影响 ， 
然而 ， 执 行 这 样 的 选择 却 会 影响 游戏 的 进行 , 所 以 每 次 游戏 
者 通过 访问 指令 来 聪明 地 改变 角色 的 处 境 。 这 种 修改 使 得 游 
戏 的 玩法 技巧 更 加 丰富 多 彩 , 这 是 在 游戏 设计 中 的 初步 想 
法 。 一 个 有 趣 的 游戏 应 是 一 个 有 足够 难度 但 又 十 分 容易 理解 
的 。 抽 象 游戏 (如 走 棋 ) 很 容易 学 , 但 要 玩 好 却 很 难 。 本 书 介 


却 很 难 。 本质 上 ,一 个 游戏 需要 用 某 些 智能 来 玩 ， 要 解决 难 
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度 比较 大 的 程序 设计 技术 中 的 一 些 问题 , 但 又 必须 使 它们 对 
游戏 者 来 说 不 要 太 难 ， 从 而 使 游戏 者 能 够 津津 有 味 地 去 玩 。 

-第 三 种 变化 是 可 能 的 选择 和 游戏 者 行动 AND /OR) 的 
结果 造成 的 相互 影响 。 在 一 个 好 的 游戏 中 , 开头 少量 的 选择 
会 对 今后 派生 的 大 量 选择 产生 有 意义 的 影响 ,所 以 游戏 结构 
部 分 应 是 一 个 关于 各 种 选择 的 相互 关系 的 描述 。 例 如 ， 如 果 
游戏 者 选择 了 大 型 武器 , 那么 我 们 的 游戏 中 就 可 以 包含 设计 
一 架 宇宙 飞船 ; 如 果 我 们 要 邀 游 海洋 到 海岛 探险 , 但 是 只 人 允 
许 设置 一 稻 慢 的 船 。 在 多 中 选 一 的 要 求 下 ,假定 一 个 游戏 者 
在 一 个 幻想 游戏 中 抓 到 了 一 根 魔 棒 ， 什么 问题 都 解决 了 。 从 
短期 看 这 样 做 也 许 有 好 处 ， 但 从 长 远 看 效果 不 见得 好 。 

特别 是 在 设计 一 个 游戏 结构 时 , 我 们 应 该 决定 有 关 每 个 
操作 的 功能 。 在 一 个 游戏 中 没有 一 个 选择 会 自动 地 成 功 , 或 
者 这 一 选择 带 来 的 成 功 仅 当 它 与 其 他 正确 选择 结合 在 一 起 ， 
或 者 仅仅 存在 一 个 由 它 的 概率 函数 曲线 表示 出 来 的 一 个 成 功 
的 机 会 。 这 种 曲线 常常 是 许多 游戏 的 核心 部 分 。 例 如 ,假定 
我 们 的 游戏 中 包含 了 一 个 角色 社会 地 位 的 提升 ,从 农民 变 成 
国王 ,并 描述 他 生命 中 每 一 年 的 变化 随 着 他 的 社会 地 位 的 
上 升 , 其 知识 也 增加 了 。 我 们 用 图 2.2 中 的 曲线 来 表示 。 然 
而 ， 随 着 他 逐渐 变 老 ,其 智能 将 逐渐 降低 ( 见 图 2.3)。 假 定 他 
通过 下 一 个 社会 阶梯 是 同等 地 依赖 于 知识 和 智能 则 对 年 龄 
来 说 ， 提 高 社会 地 位 的 曲线 如 图 2.4 所 示 。 年 龄 的 增加 是 均 
匀 的 (每 年 增加 一 岁 )， 但 各 阶段 社会 地 位 的 间距 却 是 各 不 相 
同 的 。 所 以 他 的 百 分 之 五 十 的 机 会 依赖 于 先前 的 成 功 (起 初 
只 有 下 分 之 五 十 的 时 间 ),， 在 提高 社会 地 位 的 成 功 机 会 的 曲 
线 随 着 游戏 的 进展 看 起 来 更 像 图 2.5, 即 初期 年 龄 和 社会 地 
位 在 决定 提高 社会 地 位 的 机 会 中 相互 抵 销 , 但 随 着 时 间 的 推 
移 ， 年 龄 将 变 得 越 来 越 重 要 。 
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六 S 
到 和 
知 | / 智 | 入 
社会 地 位 年 龄 
图 2.2 图 2.4 


在 一 个 游戏 中 ， 每 种 可 能 性 都 能 象 图 2.2 至 图 2.5 那样 
绘 出 一 条 曲线 ， 而 赢得 游戏 的 机 会 将 依赖 于 全 部 曲线 组 合 起 
来 的 总 曲线 。 这 可 能 包含 某 些 极为 复杂 的 数学 知识 ， 然 而 ， 
并 不 需要 去 计算 我 们 游戏 中 所 有 函数 的 全 部 曲线 , 尤其 是 如 
果 运 气 好 (随机 因素 ), 在 相当 大 的 程度 上 还 是 能 取胜 的 。 但 
是 , 我 们 必须 保证 所 选择 的 函数 、 公 式 和 算法 满足 : 1) 做 得 
有 道理 ; 2) 从 不 产生 百分之百 的 正确 性 。 在 最 后 决定 是 否 把 
它们 并 和 我们 的 游戏 之 前 ， 必 须 解 决 在 小 批 样本 上 选择 和 测 
试 在 我 们 的 游戏 中 最 常用 的 功能 。 我 们 总 是 尽 可 能 地 调整 以 
后 要 用 的 公式 ,但 最 好 还 是 从 一 开始 就 解决 平衡 结构 的 问题 ， 
这 样 一 来 ， 我 们 就 不 必 小 修 小 补 ， 以 致 可 能 弄 坏 整个 游 
戏 。 
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第 二 节 ”输入 /输出 

一 、 声 音 

初期 我 们 必须 做 的 主要 决定 是 ， 声 音 是 否 为 游戏 的 一 
个 主要 组 成 部 分 , 是 否 用 它 来 给 出 在 任何 其 他 方式 下 无 法 替 
代 的 信息 ,如同 用 音乐 线索 作为 谜 的 一 部 分 , 或 者 作为 不 包 
含 实质 性 信息 的 简单 应 用 (例如 在 每 个 游戏 开始 和 结束 时 的 
曲调 )。 自 然 的 声音 能 以 各 种 方式 用 在 一 个 程序 中 。 在 非 实 
质 性 的 声音 用 法 的 情况 下 , 它 常常 能 在 编程 序 的 最 后 阶段 加 
进去 ,只 要 我 们 知道 所 玩 的 游戏 段 需 要 多 大 内 存 ， 以 及 加 入 
声音 需 增 加 多 少 内 存 容 量 。 然 而 , 实质 性 的 声音 必须 与 其 他 
实质 性 信息 一 样 早 设计 进去 ， 以 便 我 们 能 看 到 它 是 否 适 应 
整个 结构 的 要 求 ， 并 能 与 其 余 程 序 一 同 提高 游戏 效果 ， 而 不 
是 当 作 装 珊 门 面 的 标签 。 


二 、 图 象 

如 果 你 的 游戏 只 绘 出 被 打印 的 硬 拷贝 ( 象 某 些 通过 邮件 
玩 的 游戏 ) 通 常 都 有 图 形成 分 )， 那 么 每 一 个 变换 的 信息 都 要 
在 电视 屏幕 上 显示 出 来 。 它 可 以 是 全 图 形 的 , 或 者 是 全 文字 
的 ， 没 有 图 形 输出 ,这 用 当代 微机 看 起 来 是 浪费 的 。 但 是 ， 
另 一 方面 图 形 可 能 用 掉 大 量 内 存 ， 而 模拟 和 冒险 游戏 一 般 说 
来 需要 尽 可 能 多 的 内 存 。 一 个 聪明 的 程序 员 能 够 把 激动 人 心 
的 图 形 和 有 趣 的 人 工 智 能 建立 在 同一 个 游戏 中 , 例如 第 一 章 
中 提 到 的 游戏 , 除了 做 英语 短文 是 纯 文 字 的 以 外 , 其 他 的 游 
戏 都 在 智能 性 与 图 形 显示 上 做 了 很 好 的 结合 ,习惯 上 冒险 游 
戏 似乎 是 全 文字 的 , 但 是 对 这 种 游戏 也 提高 了 要 求 ， 要 用 实 
时 图 形 、 彩 色 、 高 分 辩 率 、 三 维 插图 等 等 。 由 于 内 存 器 件 的 
价格 越 来 越 便 宜 ,所 以 这 种 发 展 变 得 更 加 实际 可 行 了 。 
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由 于 在 冒险 或 模拟 游戏 中 需要 大 量 的 内 存 ， 所 以 我 们 应 
该 限制 程序 的 大 小 和 范围 ， 然 而 用 磁盘 文件 或 盒 带 存储 ， 可 
把 图 形 存储 在 RAM 以 外 的 存储 器 中 ,必要 时 调用 即 可 。 但 
是 ,这 样 做 会 影响 程序 的 执行 速度 。 

目前 我 们 需要 做 出 决定 : 

(]) 是 否 希 望 用 图 形 ; 

(2) 为 了 什么 目的 ; 

(3) 要 占用 多 大 内 存 。 

在 游戏 中 使 用 图 形 显示 基本 上 有 三 种 类 型 ， 即 

(装饰 性 的 显示 , 作为 标题 ,闪烁 警告 ,装饰 文章 等 
等 ; 

(2) 插 图 ,如 在 一 张 魔 怪 的 图 画 中 , 角色 是 怎样 抓 住 它 或 
看 到 它 进 入 新 的 位 置 。 

(3) 实 质 性 的 信息 ， 图 形 中 保持 的 信息 ， 对 于 游戏 来 说 是 
实质 性 的 上 且 没 有 用 其 他 方法 给 出 过 ,例如 许多 图 视线 索 的 利 
用 等 等 。 

首先 , 这 些 都 是 很 容易 做 到 的 , 并 且 可 以 大 大 提高 一 个 
游戏 的 吸引 力 。 但 是 由 于 不 需要 严格 说 明 而 往往 被 忽视 。 第 
三 点 是 最 有 趣 的 也 最 困难 的 , 本 书 第 四 章 中 给 出 了 许多 有 关 
图 形 处 理 的 有 趣 技巧 及 简短 的 程序 说 明 。 由 于 微型 机 的 资源 
有 限 , 一 定 要 设法 使 声音 、 图 形 、 文 字 有 机 地 结合 起 来 ， 而 
不 仅仅 是 作 说 明 。 

在 设计 显示 过 程 中 的 一 个 好 的 想法 是 ， 在 开始 阶段 画 
一 个 我 们 布 望 看 到 的 显示 类 型 草图 ,这样 我 们 就 能 决定 它们 
是 否 适 合 放 到 程序 中 去 ,它们 将 占用 多 少 屏幕 空间 ， 怎 样 才 
能 把 它们 与 文字 混合 在 一 起 ， 这 里 将 会 用 到 图 形 模式 。 

最 后 ,我 们 需要 把 全 部 主要 显示 画 到 图 形 页 面 或 一 张 特 
定 的 绘图 纸 上 , 但 在 计划 阶段 ， 简 单 的 、 手 画 的 草图 就 足够 
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了 .要 记 住 ,一 张 有 吸引 力 的 插图 是 有 价值 的 ， 它 绘 出 了 一 个 . 
重要 的 图 视 信 息 ,， 简 化 了 描述 步骤 , 丰富 了 想象 力 。 美 学 上 
的 用 途 是 图 形 作 用 的 另 一 个 重要 方面 ,游戏 者 在 一 遍 又 一 遍 
地 重复 进行 游戏 时 将 看 到 它 并 感觉 " 它 ,， 所 以 要 对 游戏 的 自 
身 表 现 , 包括 在 屏幕 上 输出 都 要 给 予 足够 重视 。 


三 ,- 正文 

正文 是 游戏 中 输入 /输出 的 最 普通 最 重要 的 形式 ， 如何 
使 正文 简洁 、 生 动 、 有 趣 ， 这 一 切 需 要 文字 修养 。 我 们 这 里 
将 要 考虑 的 是 正文 怎样 被 使 用 ， 怎 样 被 表现 ,怎样 被 存储 ， 
以 及 怎样 被 处 理 ,特别 在 冒险 游戏 的 设计 中 有 各 种 大 量 正文 
的 输出 和 输入 的 多 方面 分 析 。 但 是 存储 大 量 正文 需要 用 大 
量 内 存 , 而 用 BASIC 字符 串 处 理 一 般 说 来 太 慢 了 , 它 降低 
了 游戏 速度 。 

我 们 需要 考虑 全 部 指令 是 放 在 程序 中 , 还 是 描述 在 一 张 
附 表 上 。 如 果 命令 是 用 普通 汉语 或 普通 英语 或 缩写 字 ， 数 字 
或 单个 字母 写成 ; 如 果 某 些 数 据 紧 凑 格 式 筱 用 来 存储 更 多 
的 正文 ; 如 果 摘 写 中 充满 了 句子 或 缩写 字 ; 以 及 如 果 能 以 不 
同方 式 来 解释 使 用 的 命令 ,我们 就 应 该 决定 如 何 显示 正文 以 
及 如 何 做 好 与 任何 图 形 显示 的 联接 。 例 如 , 我 们 在 整个 游戏 
的 屏幕 上 将 图 形 和 汉字 一 起 显示 , 我 们 将 需要 定义 某 种 类 型 
的 正文 与 图 形 "窗口 "， 甚 至 为 了 不 同 目的 定义 几 个 不 同 的 窗 
口 等 (例如 一 个 为 了 调换 角色 ,， 另 一 个 为 了 选择 可 能 的 动作 
)。 

“屏幕 显示 “数据 压缩 “文本 处 理 " 等 每 个 课题 都 以 
它 自 身 认为 适当 的 方式 在 每 本 书 中 出 现 , 这 里 当然 不 可 能 全 
部 讨论 , 所 代替 的 将 是 几 个 有 关 建 议 以 及 某 些 涉及 BASIC 
程序 设计 的 详细 例子 。 这 一 切 都 可 能 并 和 你 的 有 关 程 序 中 去 ， 


37 


但 是 必须 遵循 的 原则 是 : 

() 存 和 内存; 

(2) 快 速 执行 ; 

(3) 把 变化 加 到 程序 中 去 ; 

(4) 所 编 的 程序 要 使 游戏 者 比较 容易 玩 和 更 加 感 兴趣 。 

由 于 它 十 分 重要 , 在 计划 阶段 文本 是 值得 详尽 地 加 以 考 
虑 的 , 文本 处 理 经 常 被 BASIC 程序 设计 人 员 所 忽视 ,尽管 
事实 上 有 许多 有 趣 的 过 程 能 够 用 文本 处 理 实现 ,一 方面 我 们 
必须 使 所 编写 的 游戏 对 游戏 者 具有 更 大 的 吸引 力 ， 所 用 的 词 
汇 要 丰富 , 语法 要 正确 , 语句 要 通顺 , 语言 要 生动 , 缩写 也 
要 易于 阅读 理解 等 等 。 另 一 方面 我 们 还 必须 看 到 ， 对 游戏 过 
程 中 的 错误 , 用 某 些 双关 的 笑话 作 响应 , 在 游戏 的 不 同 地 方 
分 别 找到 文件 碎片 ,并 在 游戏 中 逐个 进行 解密 , 生成 一 系列 
字 与 词 的 线索 。 与 遭遇 到 的 魔王 的 “对 话 ? 以 及 各 种 错误 信息 
的 变换 ， 在 文本 处 理 中 都 应 加 以 考虑 。 


第 三 节 ”程序 结 


车 


我 们 已 经 按 故 事 的 思想 类 型 将 游戏 作 了 分 类 ,并 讨论 了 
图 形 显示 的 草图 . 以 及 输入 /输出 形式 问题 .下 一 步 我 们 准备 
开始 程序 设计 。 游 戏 程序 象 其 他 任何 程序 一 样 ， 但 在 某 些 方 
面 它 要 更 复杂 些 ， 需 要 有 更 多 的 智慧 。 所 以 在 游戏 程序 设计 
中 ,要 注 意 改变 某 些 常规 程序 设计 技术 。 

最 重要 的 事实 是 游戏 的 类 型 ,在 本 书 中 讨论 的 游戏 一 般 
来 说 都 比较 长 ,为 了 使 游戏 让 人 感 兴趣 ,总 的 说 来 要 象 故 事 
博 变 、 谜语 那样 多 变 、 复 杂 , 这 就 意味 着 游戏 程序 也 要 多 
变 复杂 , 解决 长 度 , 多 变 和 复杂 这 三 个 问题 的 最 简单 方法 是 
采用 模块 结构 。 模 块 化 程序 设计 是 一 种 好 办 法 。 一 般 情 况 下 
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它 防 止 网 状 GO TO 语句 的 出 现 并 鼓励 BASiC 程序 设计 
人 员 采 用 结构 技术 ， 以 便 能 比较 容易 地 把 程序 向 Pascal 和 
FORTRAN 语言 移植 。 模 块 化 能 使 我 们 在 开发 程序 时 做 分 
段 测 试 并 使 总 体 测 试 和 改 错 变 得 容易 些 ， 甚 至 它 还 能 分 模块 
地 从 其 他 程序 中 借用 ， 而 不 必 一 切 都 从 头 做 起 ,设计 一 个 模 
块 也 可 有 多 种 用 途 。 

模块 化 设计 意味 着 什么 ” 本 质 上 它 类 似 于 把 程序 分 成 几 
个 子 程序 或 过 程 ， 再 加 一 个 在 需要 的 时 候 调 用 各 个 子 程序 的 
主 程序 。 象 前 面 描述 的 那样 ,管理 程序 在 需要 时 调用 所 有 其 
他 过 程 , 并 且 这 些 过 程 本 身 也 可 相互 调用 。 

然而 , 不 应 认为 非 结 构 程 序 一 定 是 有 些 “ 错 "或 差 \ 在 
游戏 程序 设计 中 的 规则 是 “如 果 它 能 工作 , 那么 它 就 是 一 个 
好 程序 "。 某 些 人 发 现 结构 化 对 他 们 进行 程序 设计 强加 的 限 
制 太 多 ; 还 有 人 提出 一 些 其 他 方面 的 困难 。 但 如 果 你 不 采用 
结构 化 设计 ， 就 会 很 快 地 意识 到 你 可 能 已 经 跌 入 一 个 不 能 自 
拔 的 陷阱 之 中 , 并 且 其 他 人 也 很 难 理解 你 的 工作 。 当 然 , 在 
某 些 情况 下 , 是 为 了 防止 盗窃 , 实际 上 , 非 结构 程序 就 有 优 
势 。 结 构 程序 的 主要 方便 之 处 是 , 在 你 的 思想 上 强化 了 逻辑 
顺序 ; 从 而 迫使 你 开头 就 有 计划 , 并 能 比较 容易 地 用 它 检查 
自己 的 设计 思想 。 

结构 化 程序 中 的 每 个 模块 (或 子 程序 ) 都 有 它 自 己 的 特殊 
任务 ， 它 可 以 是 打印 输出 指令 , 或 计算 分 析 战 斗 场面 ,或 显 
示 宇 宙 飞 船 移动 。 这 些 任务 在 每 次 轮转 中 可 以 调用 一 次 或 多 
次 。 如 果 只 调用 一 次 , 特别 是 在 整个 游戏 中 只 调用 一 次 ,就 
不 必 把 这 种 模块 放 到 子 程序 中 去 ， 只 要 把 它 作为 主 程序 的 一 
段 就 可 以 了 。 无 论 如 何 ， 为 了 支持 灵活 性 和 多 变性 ,根据 条 
件 使 尽 可 能 多 的 子 程序 能 够 不 止 一 次 地 被 调用 总 是 一 个 好 主 
意 。 例 如 ,， 当 游戏 者 决定 开战 时 .可 以 调用 战斗 子 程序 。 随 
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后 ,如 果 敌 方 也 决定 开打 , 那么 也 可 以 调用 战斗 子 程序 , 或 
者 即使 双方 都 希望 避免 战争 而 “上帝 "( 即 某 随 机 数 ) 决 定 要 开 
战 (在 满足 条 件 的 场合 ) 也 要 调用 它 。 

在 完成 的 早期 设计 中 应 该 明确 指出 程序 中 需要 什么 模块 
以 及 它们 以 什么 顺序 被 调用 。 如 果 这 一 点 还 不 清楚 的 话 , 那 
么 程序 设计 的 第 一 个 任务 就 是 把 它 弄 清楚 ,把 所 有 想法 写 下 
来 , 并 把 它们 连接 起 来 。 为 了 实现 这 一 点 ,可 以 有 各 种 不 同 
的 方法 ,我 们 建议 采用 : 

(主意 图 ; 

(2) 一 般 算 法 。 

主意 图 是 产生 主意 并 把 它们 连接 起 来 的 方法 。 算 法 是 用 
逻辑 和 系统 的 方法 把 主意 结构 化 的 一 种 途径 。 


一 、 主 意图 

取 一 张 白 纸 , 在 中 间 写 上 程序 的 主题 (关于 什么 ,怎样 工 
作 , 看 起 来 象 什 么 ,调用 什么 ), 这 一 步 应 尽 可 能 快 ， 用 不 了 
太 多 的 时 间 把 每 个 想法 用 短语 、 词 记录 下 来 ,并 与 主题 连接 
起 来 : 用 一 条 线 连接 两 个 想法 。 将 想到 的 与 已 有 两 个 想法 中 
某 一 个 有 关 的 想法 记 下 来 ， 在 它们 之 间 画 一 条 连接 线 。 接 
着 重复 这 一 处 理 过 程 , 将 另外 的 想法 与 这 三 个 中 的 某 一 个 相 
连接 。 这 种 方式 继续 下 去 ,每 想起 一 个 与 纸 上 已 经 有 的 一 个 
或 几 个 想法 有 关 的 新 想法 ， 就 把 它们 记 下 来 ,然后 画 出 全 部 
主要 连 线 。 不 断 地 去 评价 这 些 想 法 ， 如 此 继续 下 去 直至 超出 
你 确定 的 范围 。 

图 2.6 是 一 个 有 关 十 代 贵 族 庄园 主 的 游戏 主意 图 。 如 果 
你 进行 游戏 设计 ,也 会 建立 一 个 象 图 2.6 那样 的 程序 结构 的 
主意 图 。 
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图 2.6 “一 个 模拟 游戏 的 主意 图 


这 种 主意 图 是 关于 游戏 程序 思想 的 设计 计划 ， 用 这 种 
方法 连接 可 以 使 你 在 直觉 上 更 行 得 通 。 现 在 将 已 有 的 全 部 游 
戏 的 注解 ,列表 清单 ,草图 ,备忘录 (如 果 还 未 归并 到 主意 图 
内 的 话 ) 统统 加 入 到 最 符合 逻辑 的 地 方 , 并 连接 起 来 

你 会 发 现 某 些 想法 会 产生 许多 分 支 ， 而 另外 一 些 想法 却 
只 有 一 、 二 个 分 支 , 具有 许多 分 支 的 想法 是 程序 结构 中 的 主 
要 想法 ,所 以 它 将 成 为 程序 中 的 主要 子 程序 ; 只 有 少量 分 支 
的 想法 将 成 为 小 模块 ,而 只 有 一 个 分 支 的 不 需 独立 分 开 的 模 
块 将 全 部 并 和 人 到 产生 它 的 大 想法 中 去 。 例 如 , 图 2.6 中 关 
于 “金钱 ?这 一 主题 产生 了 四 个 分 支 ， 当然 它 就 是 一 个 很 重要 
的 子 程序 或 例 行 程序 ; 另 一 方面 “叛乱 " 却 只 有 一 个 分 支 ， 
所 以 它 是 次 要 的 。 事 实 上 , 它 只 被 “农民 " 子 程序 调用 , 所 以 “ 
它 不 必 单 独 列 为 一 个 子 程序 ; “叛乱 "在 这 里 可 简单 地 作为 ” 
农民 " 子 程序 的 一 个 部 分 。 
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二 、 算 法 /流程 图 

主意 图 能 使 我 们 全 部 想法 具体 化 , 并 澄清 了 各 种 想法 之 
间 的 逻辑 关系 。 然 而 , 在 任何 意义 上 说 ,， 它 并 不 是 程序 的 确 
切 描述 ,实现 这 一 目的 的 最 好 方法 是 构造 一 个 算法 ， 并 用 自 
顶 向 下 ,逐步 求 精 的 方法 画 出 程序 流程 图 。 这 是 一 个 更 加 精 
确 的 模型 ， 但 是 起 初 如 果 有 关 程 序 的 基本 想法 还 不 清楚 的 话 ， 
要 想 构 造 出 一 个 好 的 算法 是 很 困难 的 。 所 以 作为 第 一 步 应 先 
建立 一 个 主意 关系 图 , 用 它 来 产生 各 种 情节 想法 ， 作 为 基础 
玉 作 。 然 后 把 它们 翻译 成 算法 /流程 图 , 使 得 各 种 关系 更 加 . 
清晰 明确 。 我 们 当然 不 可 能 直接 根据 主意 图 来 进行 编程 , 但 

一 个 结构 良好 的 算法 却 是 编程 序 的 良好 前 提 . 


本 书 的 各 章 中 提供 了 许多 算法 和 流程 图 的 例子 ,有些 十 
分 详细 , 并 指出 BASIC 或 汇编 语句 的 实际 实现 方法 ; 有 些 
则 是 很 一 般 的 , 剩 下 的 步骤 被 隐 含 或 未 开发 。 在 计划 你 的 第 
一 个 阶段 中 , 首先 要 具体 描述 在 程序 中 将 出 现 的 每 一 件 事 ， 
并 且 指 明 它 们 出 现 的 顺序 。 用 主意 图 2.6 可 以 构造 出 类 似 下 
面 这 样 的 算法 。 

(1 打印 指令 表 ; 

(2) 询 问 动作 ; 

(3) 计 算 任 何 战斗 ; 

“(4) 计 算 收 获 ; 

(5) 打 印 游 戏 者 当前 状态 : 

(6) 如 果 角 色 未 死 就 返回 (1)。 

在 设计 了 主要 算法 之 后 , 我 们 就 能 逐个 地 将 每 一 块 作为 

一 个 独立 的 模块 来 处 理 ,， 并 且 画 出 包含 在 该 模块 中 的 全 部 过 
程 (可 能 用 自由 讨论 的 方法 建立 另 一 - 张 主意 图 j 这 就 是 所 谓 
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逐步 细 分 。 对 于 每 个 过 程 ， 如果 必要 的 话 , 都 有 它 自 己 的 算 
法 。 我 们 用 这 种 方法 继续 下 去 ,直至 使 算法 读 起 来 象 一 个 程 
序 .。 在 此 基础 上 ,就 可 以 对 算法 进行 编码 了 。 根 据 详细 的 草 
图 为 每 个 模块 分 配 行 号 ， 然 后 将 算法 的 每 一 步 翻译 成 合适 的 
BASIC 语句 程序 行 。 有 关 这 方面 的 论述 详 见 第 三 章 。 
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第 三 章 ”游戏 程序 的 设计 过 程 


60 年 代 以 来 ,计算机 的 应 用 领域 越 来 越 广 , 它 几 乎 涉及 
到 社会 生活 的 各 个 方面 。 由 于 所 有 的 计算 机 都 需要 由 软件 支 
持 ， 所 以 计算 机 应 用 的 大 量 增长 ， 进 一 步 加 剧 了 对 已 经 快速 
增长 的 软件 的 需求 。 另 外 , 由 于 研制 软件 本 质 上 是 一 个 逻辑 
思考 过 程 ， 对 它 难 予 控制 ,加 之 研制 人 员 往 往 按 各 自 的 习惯 
进行 工作 ,. 没有 统一 的 标准 赖 以 遵循 , 结果 研制 出 来 的 软件 
产品 质量 较 差 一 - 不 可 笔 、 错 误 多 、 难 了 修改 和 维护 ， 这 就 
产生 了 软件 和 危机。 人们 逐步 认识 到 , 不 能 沿用 50 至 60 年 代 
个 人 编写 小 型 程序 时 使 用 的 * 手 工艺 "方式 来 研制 软件 系统 ， 
而 应 该 象 研 制 一 台 机 器 或 建造 一 座 楼 房 那样 ,用 “工程 化 "的 
思想 来 指导 、 管 理 软件 的 开发 。 我 们 对 照 一 台 机 器 的 设计 、 
制造 过 程 来 看 ,设计 人员 首 先 需要 认真 分 析 用 户 对 机 器 的 性 
能 、 功 能 等 方面 所 提出 的 许多 要 求 ,在 此 基础 上 才能 进行 初 
步 设计 。 对 初步 设计 必须 听取 用 户 意 见 作 必要 的 修正 ， 然 后 
再 认真 地 设计 出 一 整套 用 户 需 求 的 机 器 图 纸 、 资 料 和 各 种 技 
术 细 节 ， 并 用 都 以 书面 形式 记录 下 来 , 以 备 随时 查阅 ， 研 制 
人 员 之 间 也 要 借助 于 图 纸 和 说 明 书 等 资料 进行 交流 。 只 有 在 
图 纸 . 资料 完善 的 基础 上 ， 才 多 许 进行 后 阶段 的 制造 (确定 
制造 工序 和 工艺 ),， 再 进行 装配 。 最 后 ， 对 装配 好 的 机 需 还 需 
进行 调试 ,而且 只 有 合格 的 产品 才能 出 广 。 由 此 可 知 , 在 机 
械 工程 中 最 终 的 产品 不 只 是 机 器 , 还 包括 一 整套 的 图 纸 和 资 
料 ( 比 如 技术 说 明 书 、 使 用 说 明 书 和 维护 手册 等 )。 

为 了 提高 软件 的 开发 质量 和 效益 ，60 年 代 末 一 些 计 算 
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机 专家 提出 了 软件 工程 的 基本 原理 ,主张 以 工程 化 的 思想 来 
指导 和 管理 软件 的 开发 ,软件 的 开发 同样 要 经 过 : 需求 分 
析 、 设 计 、 编 程 、 测 试 和 运行 等 五 个 工程 阶段 。 一 项 软件 产 
品 应 该 包括 五 个 组 成 部 分 : 系统 说 明 书 、 模 块 说 明 书 、 程 序 
清单 、 测 试 文档 和 使 用 、 维 护 手册 等 完备 的 文档 资料 。 用 工 
程 化 的 方式 有 效 地 管理 软件 研制 和 运行 的 全 过 程 ， 称 为 软件 
系统 的 生命 期 , 它 可 以 分 为 : 分 析 、 设 计 、 编 程 、 测 试 和 运 
行 (包括 维护 ) 五 个 阶段 。 前 四 个 阶段 总 称 为 开发 期 ; 最 后 一 
个 阶段 称 为 运行 期 。 

我 们 以 软件 开发 的 五 个 阶段 为 基础 ,介绍 “ 控 金 砖 "游戏 
程序 的 开发 过 程 。 


第 一 节 ”决定 游戏 的 类 型 , 选择 恰当 的 游戏 功 
能 目标 (分 析 阶 段 ) 


一 、 分 析 阶 段 的 重要 性 

人 们 认识 到 , 为 了 设计 出 满意 的 软件 系统 ,首先 必须 有 
一 段 时 间 集 中 精力 认真 地 分 析 用 户 究竟 需要 该 系统 “做 什么 ? 
并 把 共同 的 理解 正确 地 表达 成 一 份 书面 资料 -一 系统 说 明 
书 。 系 统 说 明 书 必须 完整 、 精确 、 无 二 义 上 且 简 明 易 懂 。 它 是 
用 户 和 设计 人 员 之 间 的 协议 , 是 软件 人 员 进 行 下 阶段 的 设 
计 、 编 程 、 测 试 和 验收 软件 的 依据 。 可 见 系 统 说 明 书 是 软件 
生命 期 中 的 一 份 极 重要 的 文档 。 要 对 它 反复 审查 ,确保 用 户 
的 要 求 ,尽早 发 现 和 纠正 潜在 的 错误 ,这 是 保证 软件 质量 的 
第 一 步 。 


二 、 游 戏 程序 设计 的 第 一 步 
由 上 可 见 , 我 们 进行 游戏 程序 设计 ， 第 一 步 就 要 进行 需 
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求 分 析 。 要 在 诸多 的 游戏 类 型 (如 战争 、 博 奕 、 竞 赛 、 智 
能 、 教 育 与 学 习 等 类 型 ) 之 中 , 选择 恰当 的 游戏 类 型 。 要 确 
定 游 戏 的 具体 功能 目标 ; 要 考虑 游戏 的 玩法 ,使 之 即 简单 又 
容易 为 参加 游戏 者 掌握 , 如同 大 多 数 人 都 能 学 会 下 棋 规则 一 
样 ; 要 决定 游戏 的 参加 者 可 有 几 个 对 手 ， 计 算 机 是 否 充当 对 
手 ;还 要 决定 如 何 奖励 优秀 的 游戏 者 ,处 罚 不 好 的 对 手 的 策 
略 等 等 。 

在 游戏 程序 的 设计 过 程 中 ,要 把 上 述 问 题 考虑 妥当 ,并 
以 书面 的 方式 表达 出 来 是 比较 困难 和 耗费 时 间 的 但 这 是 必 不 
可 少 的 重要 一 步 。 


三 “ 挖 金 砖 "游戏 的 需求 分 析 

1 .决定 游戏 的 类 型 

“ 挖 金 砖 "游戏 要 求 游戏 者 最 好 能 够 记 住 五 种 颜色 金 砖 的 
重量 和 相应 的 得 分 ,以 及 能 够 判断 控 取 某 一 块 金 砖 后 会 有 多 
少 块 金 砖 因 重 心 不 稳 而 跌落 这样 游戏 者 就 能 取得 高 分 。 另 
外 , 游戏 者 设法 迫使 计算 机 控 取 会 造成 大 楼 倒塌 的 那 块 砖 。 
因此 挖 金 砖 应 是 一 种 具有 一 定 智能 要 求 的 竞赛 型 游戏 。 游 戏 
类 型 的 决定 必然 会 对 游戏 功能 目标 的 确定 带 来 较 大 影响 。 

2. 决 定 控 金 砖 游戏 的 功能 目标 

(D 每 次 比赛 开始 , 屏幕 上 自动 生成 一 座 彩 色 的 金山 (在 
单 色 显示 器 系统 中 ,只 能 看 到 由 不 同 灰 度 砖 块 堆砌 起 来 的 金 
山 )， 山 项 上 有 一 幢 大 楼 。 金 山 呈 金字 塔 型 ， 有 55 块 金 砖 组 
成 , 共计 十 层 , 由 项 向 下 各 层 的 金 砖 数 依次 为 1 2, … ， 
10。 金 砖 有 五 种 颜色 : 深蓝 、 黄 、 灰 2、 棕 , 深 绿 。 重 量 
与 得 分 也 要 相应 确定 下 来 。 

(2) 游 戏 者 只 要 使 用 少数 几 个 按键 就 能 十 分 方便 、 灵 活 
地 操纵 光标 块 移动 ,以便 使 光标 块 移 到 要 控 取 的 金 砖 的 位 置 ， 
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并 使 光标 块 闪 烁 。 

(3) 在 游戏 者 控 取 某 块 金 砖 后 ,程序 应 有 确定 的 算法 来 保 
证 失重 金 砖 的 坠落 ， 要 累计 游戏 者 的 得 分 , 并 将 所 挖 得 的 金 
砖 (包括 坠落 的 ) 依 次 在 金山 底下 显示 出 来 。 

(4) 控 取 某 块 金 砖 时 ,要 伴随 发 声 。 引 起 山顶 大 楼 坠落 和 
倒塌 时 ， 要 一 边 坠落 、 一 边 发 声 ， 最 后 大 楼 粉碎 。 

(5) 程 序 应 该 包括 计算 机 如 何 控 取 金 砖 的 算法 。 

(6) 为 了 奖励 优秀 游戏 者 ， 当 一 次 累计 得 分 超过 1000 分 
或 1500 分 或 2000 分 时 , 将 分 别 给 予 奖 励 。 为 了 防止 游戏 者 
不 动脑 筋 乱 挖 金 砖 , 每 次 控 砖 时 总 分 先 扣除 100 分 。 

上 述 游 戏 程序 的 功能 目标 就 是 一 份 简单 的 控 金 砖 游戏 
的 系统 说 明 书 。 


第 二 节 ”游戏 程序 的 总 体 设 计 ( 设 计 阶段 ) 


通常 ,设计 阶段 的 要 求 是 设计 出 符合 系统 说 明 书 要 求 的 
软件 系统 的 方案 , 并 从 几 个 方案 中 选 出 较 好 的 方 案 。 所 谓 
较 好 的 方案 是 指 : 研制 的 费用 , 开发 的 时 间 估算 , 易 理解 性 ( 
对 软件 人 员 来 说 系统 易于 阅读 和 理解 ,对 用 户 来 说 易于 使 用 )， 
可 靠 性 (包括 有 不 合理 的 数据 输入 或 软件 故障 时 ， 系 统 

能 做 出 适当 处 理 )， 易 维护 性 (包括 易于 纠 错 、 修 改 和 扩充 )， 

效率 (有 效 地 使 用 计算 机 的 时 间 和 空间 资源 )， 以 及 可 移植 性 ( 
系统 容易 移植 到 其 他 型 号 的 计算 机 上 去 ) 等 目标 , 均 能 较 大 
限度 地 得 到 满足 。 设 计 阶 段 可 分 为 总 体 设 计 和 详细 设计 两 
步 . 总 体 设计 要 考虑 : 如 何 将 系统 划分 成 一 个 个 模块 ( 子 任 
务 ); 模 块 间 传送 的 数据 与 类 型 ;模块 间 的 调用 关系 和 选择 出 
较 好 的 模块 结构 图 等 。 详 细 设计 要 具体 考虑 每 一 个 模块 内 部 
采用 的 算法 ,数据 的 存储 结构 和 输入 、 输 出 的 设计 等 。 
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一 、 自 顶 向 下 的 设计 原则 

在 软件 的 总 体 设计 过 程 中 , 自 顶 向 下 的 设计 方法 是 被 人 
们 广泛 接受 的 一 种 方法 。 因 为 由 它 可 以 产生 出 好 的 程序 结构 ， 
使 系统 具有 易 读 性 、 易 理解 性 易 维 护 性 。 它 的 思想 是 以 
系统 说 明 书 为 基础 , 将 软件 系统 设计 为 由 一 组 不 同 层次 上 
的 、 相 对 独立 的 、 功 能 单一 的 模块 所 组 成 的 系统 结构 。 这 种 
总 体 设计 方法 的 优点 在 于 : D) 由 于 模块 之 间 是 相对 独立 的 ， 
所 以 每 个 模块 可 以 独立 地 被 理解 、 编 程 、 测 试 、 排 错 和 修改 ， 
从 而 使 复杂 的 研制 工作 得 以 简化 , 使 不 同 的 模块 可 以 分 别 
由 几 个 人 同时 分 头 开发 ;了 模块 的 相对 独立 性 也 能 有 效 防 止 
错误 在 模块 之 间 的 扩散 与 昔 延 因而 提高 了 系统 的 可 靠 性 与 
质量 。 

在 总 体 设 计时 , 为 了 衡量 模块 之 间 的 相对 独立 性 ,提出 
两 个 标准 : 1) 使 模块 之 间 的 联系 越 小 , 则 模块 的 独立 性 越 高 ; 
2) 使 模块 内 部 各 成 分 之 间 的 联系 越 大 , 则 模块 之 间 的 独立 性 
势必 也 会 提高 。 

总 体 设计 阶段 的 工作 结果 是 模块 说 明 书 ， 它 由 模块 结构 
图 和 模块 的 功能 说 明 两 部 分 组 成 。 模 块 结构 图 描述 了 整个 
软件 系统 由 哪些 模块 组 成 ,也 说 明了 模块 之 间 的 调用 关系 。 
模块 结构 图 的 主要 成 分 有 : 

(模块 一 它 用 方 框 表 示 , 方 框 内 写 有 模块 的 名 字 。 模 块 
的 名 字 应 适当 地 反映 这 个 模块 的 功能 。 

(2) 调 用 一 从 上 一 层 模块 指向 其 下 层 模 块 的 箭头 ， 它 表示 
上 层 模块 含有 对 下 层 模 块 的 调用 。 

(G3) 数 据 流 一 在 模块 调用 箭头 的 边 上 可 以 标 上 小 箭头 与 
数据 名 ， 它 表示 模块 调用 时 从 一 个 模块 传送 给 另 一 模块 的 数 
据 和 传送 方向 。 
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(4) 一 些 辅助 符号 一 弧 形 箭头 表示 循环 调用 ;小 菱形 符号 
表示 有 条 件 调用 。 如 图 3.1 中 , 模块 A 循环 地 调用 其 下 层 模 
块 B 和 C; 模 块 A 有 条 件 地 调用 模块 D。. 


图 3.1 模块 调用 示意 图 


必须 强调 ,模块 结构 图 与 习惯 使 用 的 流程 图 不 同 。 模 块 
结构 图 反映 了 程序 的 层次 特性 ,， 即 某 个 模块 要 调用 哪些 模块 ， 
哪些 模块 又 调用 什么 模块 。 而 流程 图 所 反映 的 则 是 程序 
执行 的 过 程 特性 ， 即 先 执行 哪 一 部 分 ,再 执行 哪 一 部 分 。 在 
设计 阶段 ， 首 先 应 该 关心 的 是 程序 的 层次 结构 , 所 以 应 该 先 
采用 模块 结构 图 来 描述 程序 的 结构 特性 。 

妨 外 , 对 模块 结构 图 中 出 现 的 每 个 模块 还 必须 作 功 能 说 
明 ， 指 出 每 个 模块 的 输入 、 输 出 ,以 及 这 个 模块 的 作用 一 
做 什么 。 一 个 软件 系统 的 质量 主要 由 总 体 设 计 阶 段 所 设计 
出 来 的 系统 模块 结构 决定 。 因 此 ， 必 须 从 不 同 的 总 体 设 计 方 
案 中 找 出 良好 的 模块 结构 方案 。 设 计 人 员 还 应 该 认真 审查 模 
块 说 明 书 ， 要 对 每 一 模块 进行 复审 ,一 直 复 审 到 符合 系统 说 
明 书 的 要 求 为 止 。 这 是 软件 开发 过 程 中 保证 软件 质量 的 又 一 
个 中 间 检 查 点 。 
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二 、 流 程 图 


在 总 体 设计 阶段 ， 除 了 使 用 模块 结构 图 直观 地 表示 整个 


标准 符号 
控制 流 人 
| 6 6 
| 
BEGIN 开始 点 


| 对 应 远程 连接 点 


| 


| 否 (NO 是 (YES) 
END 结束 点 
本 


REPEAT 循环 


图 3.2 流程 图 符号 
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流程 。 程 序 流 程 图 既 可 用 于 自 顶 向 下 的 总 体 设计 阶段 ， 也 可 
用 于 详细 设计 阶段 。 它 对 理解 程序 的 执行 过 程 或 复杂 算法 的 - 
设计 技巧 都 会 有 帮助 。 

图 3.2 汇总 了 通常 画 流 程 图 时 使 用 的 符号 . 


、 挖 金 砖 游戏 的 模块 结构 图 和 模块 的 功能 说 明 

按照 控 金 砖 游戏 功能 目标 ,我们 设计 了 模块 结构 图 3.3。 
图 中 对 每 一 模块 所 在 层次 进行 了 编号 。 第 一 层 有 五 个 模 
块 依次 编号 为 1 至 S。 模块 1 仅 在 游戏 程序 启动 时 执行 ， 显 
示 游 戏 的 玩法 说 明 。 模 块 2 是 游戏 的 初始 化 模块 。 模 块 3 在 
每 次 比赛 开始 时 调用 ， 其 后 循环 调用 模块 4 和 模块 S。 模 块 
4 和 5 均 有 相应 的 下 属 模块 。 下 面 分别 说 明 图 中 各 个 模块 的 
功能 。 

模块 1 在 挖 金 砖 游戏 程序 启动 后 ,简单 、 扼 要、 明确 
地 显示 玩法 说 明 。 

模块 2 这 是 本 游戏 程序 的 初始 化 模块 ， 它 将 完成 金 夸 
可 取 的 颜色 及 分 布 ， 以 及 相应 的 重量 与 得 分 的 设 定 。 

模块 3 每 次 比赛 开始 时 ， 先 在 屏幕 上 画 出 一 座 彩 色 的 
金山 , 山顶 上 有 一 幢 大 楼 。 再 在 屏幕 的 左上 角 画 出 若干 个 小 
楼 房 ， 象 征 本 次 比赛 结束 之 后 还 要 进行 几 次 比赛 。 

模块 4 在 金山 底下 的 正中 位 置 处 ,闪烁 显示 一 个 与 金 
砖 大 小 相同 的 光标 块 。 由 游戏 者 按键 移动 光标 块 来 控 取 金 砖 ， 
并 计算 其 得 分 。 模 块 4 包含 三 个 下 属 模块 : 4.1，4.2 和 
4.3。 

模块 41 在 金山 底下 显示 闪烁 的 光标 块 。 游 戏 者 可 操 
纵 按 键 <U> 、<D>、<<->、< 一 >、<X>, 分 别 实 
现 光 标 块 的 上 移 、 下 移 、 左 移 、 右 移 和 控 取 当前 光标 块 处 的 
金 砖 。 闪 烁 的 砖 块 表 示 当 前 光标 块 所 在 。 
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比赛 结束 ， 显 示 
游戏 者 的 最 终 

总 得 分 
图 3.3 控 金 砖 游戏 的 模块 结构 图 
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模块 4.2 统计 游戏 者 本 次 控 走 金 砖 的 得 分 , 以 及 随 之 
而 引起 的 所 有 险 落 金 砖 的 得 分 。 为 惩罚 不 动脑 筋 的 乱 挖 金 砖 , 
每 次 控 砖 其 总 分 先 要 减 去 100 分 。 累 计 所 控 金 砖 的 得 分 后 ， 
要 按 功能 说 明 书 的 要 求 进行 奖励 。 要 在 金山 底下 显示 依次 
控 得 的 金 砖 ， 要 显示 游戏 者 本 次 控 砖 的 得 分 ,并 将 本 次 得 分 
转 加 到 总 分 中 去 。. 

模块 4.3 本 模块 的 被 调用 也 是 有 条 件 的 。 即 仅 当 本 次 
控 砖 后 ,引起 金山 上 的 大 楼 坠落 、 倒 塌 时 才 被 调用 。 它 包含 
两 个 下 属 模块 4.3.1 和 4.3.2。 

模块 4.3.1 显示 大 楼 坠落 的 过 程 ,伴随 发 声 。 

模块 4.3.2 显示 大 楼 险 地 后 粉碎 的 形状 , 并 伴随 声 
音 。 如 果 比 赛 不 结束 , 那么 转 模块 3 继续 比赛 。 和 否则， 显示 
游戏 者 的 总 得 分 后 游戏 结束 。 

模块 54 由 计算 机 控 取 金 砖 。 它 必须 首先 调用 其 下 属 模 
块 5.1， 以便 决定 计算 机 挖 取 哪 块 金 砖 。 一 旦 计算 机 控 砖 后 ， 
引起 大 楼 坠落 、 倒 塌 ,， 那么 要 转 和 模块 4.3 进行 处 理 。 

模块 5.1 ”决定 计算 机 可 以 控 取 哪 块 金 砖 ， 并 控 取 之 。 


第 三 节 游戏 程序 的 详细 设计 与 编程 (编程 阶段 ) 


软件 人 员 应 该 克服 急于 去 编写 程序 的 欲望 。 在 软件 系统 

的 开发 过 程 中 , 必须 先 经 过 分 析 阶 段 确定 了 用 户 的 要 求 ( 获 
得 了 系统 说 明 书 ) 之 后 , 再 经 过 总 体 设 计 ( 获 得 了 模块 说 明 书 
)， 这 时 才 具 备 了 编写 程序 的 条 件 。 编 写 阶段 的 任务 是 为 每 
个 模块 编写 程序 , 将 模块 说 明 书 转换 成 用 某 种 程序 设计 语言 
书写 的 源 程 序 。 为 了 使 读者 能 够 编写 逻辑 上 正确 、 结 构 民 
好 、 层 次 分 明 、 思 路 清晰 , 便于 阅读 和 理解 的 程序 ,我 们 介 
绍 由 项 向 下 逐步 求 精 的 程序 设计 方法 。 其 基本 设计 方法 是 ， 
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以 模块 说 明 书 为 基础 对 每 个 模块 的 抽象 算法 由 粗 至 精 ( 即 
由 抽象 到 具体 ),， 逐 步 精 确 化 ,逐步 扩充 细节 ， 直 到 成 为 一 个 
能 在 机 器 上 执行 的 程序 . 


一 、 模 块 的 细 化 一 一 逐步 求 精 

逐步 求 精 要 遵循 以 下 四 个 要 点 

(以 好 的 程序 结构 (清晰 、 易 读 . 易 理解 、 昂 修改 ) 为 目 
剑 。 因为 好 的 程序 结构 能 帮助 人 们 把 大 多 数 编写 错 认 消 火 在 

编写 过 程 中 。 

加) 严格 按照 由 粗 到 精 的 顺序 作 | 刁 决 定 ， 关 于 细节 决定 应 
该 尽 可 能 推迟 到 不 能 再 推迟 的 时 候 。 这 样 做 的 好 处 是 : 不 会 
把 整体 结构 与 局 部 细节 纠缠 在 一 起 ;细节 的 修改 不 会 影响 上 
一 级 的 抽象 结构 ， 因 而 程序 的 易 修 改 性 好 。. 

(3) 伴 随 着 程序 结构 的 精细 化 进行 数据 结构 的 精细 化 。 
数据 结构 的 精细 化 也 应 该 尽 可 能 地 推迟 . 

(4) 一 边 编写 程序 ,一 边 检查 其 正确 性 。 这 可 以 提高 程序 

的 可 靠 性 ,减少 返工 ,缩短 测试 时 间 。 

最 后 还 须 明 确 , 逐步 求 精 的 过 程 直到 所 有 模块 都 已 足够 
简单 ,能 够 使 用 规定 的 程序 设计 语言 来 编写 程序 时 才 可 终 
止 。 另 外 ,对 每 个 模块 由 项 向 下 逐步 求 精 的 过 程 也 决 不 能 绝 
对 化 。 因 为 有 时 按 某 一 方式 精细 化 之 后 , 在 以 后 的 步骤 中 发 
现 原 来 那 种 精细 化 的 设想 并 不 好 ， 对 进一步 求 精 不 便 , 或 者 
算法 不 够 有 效 ， 或 者 某 几 个 部 分 的 算法 可 以 合并 等 等 。 此 时 
必须 由 底 向 上 地 对 原先 已 决定 的 一 些 步骤 精心 地 进行 修改 。 
因此 逐步 求 精 的 过 程 应 该 理解 为 一 种 不 断 地 由 抽象 到 有 具体 ( 

， 即 由 项 向 下 )， 再 由 底 向 上 的 修正 与 补充 的 程序 设计 方法 . 
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、 用 子 程序 来 实现 各 个 公用 模块 

在 程序 的 编写 过 程 中 , 我 们 应 该 把 许多 模块 都 要 调用 的 
公用 模块 作为 子 程序 来 编写 ,以 便 不 断 地 被 许多 模块 调用 。 
对 公用 模块 ， 必 须 高 质量 地 编写 好 程序 。 这 样 既 可 使 主 程序 
的 逻辑 结构 清晰 ， 义 可 使 程序 的 可 靠 性 和 效率 提高 。 

了 程序 的 类 型 主要 有 两 种 : 普通 子 程序 和 函数 子 程序 
下 

1. 普 通 子 程序 

普通 子 程序 是 被 命名 的 程序 段 (简称 子 程序 )， 它 通常 被 

另 一 个 子 程序 ( 称 为 调用 子 程序 ) 中 的 语句 显 式 调用 。 有 些 高 

级 语言 , 如 PASCAL 等 允许 子 程序 调用 它 本 身 ， 这 种 递归 

调用 在 深度 上 总 是 有 限制 的 。 递 归 调 用 常 可 使 某 些 程序 设计 
问题 变 得 容易 理解 ,并 使 算法 在 表达 上 变 得 更 加 简洁 。 当 一 
个 子 程序 完成 了 它 的 任务 后 ， 就 立即 返回 到 原先 的 调用 语句 
的 下 一 语句 去 继续 运行 。 有 些 语言 ( 如 汇编 语言 ) 允许 子 程 
序 有 多 个 和 人口 和 多 个 返回 点 。 

2. 困 数 子 程序 

函数 子 程序 是 用 于 完成 特定 的 函数 值 计 算 的 程序 段 ( 简 
称 为 函数 )。 人 们 可 以 根据 需要 来 编制 一 些 函 数 计 算 程 序 。 
在 调用 时 ， 函 数 总 是 以 显 式 的 方式 出 现在 表达 式 中 。 


三 、 挖 金 砖 游戏 的 详细 设计 

F 面 我 们 将 对 控 金 砖 游戏 中 的 各 个 模块 进行 详细 设计 ， 
再 用 BASIC 语言 进行 编程 。 由 于 模块 1 的 功能 比较 简单 ， 
仅仅 显示 游戏 的 玩法 说 明 ,所 以 其 详细 设计 从 略 。 各 个 模块 
在 详细 设计 后 , 编写 出 程序 ,再 列 出 所 对 应 的 BASIC 语句 
标号 。 读 者 需要 时 可 直接 查阅 挖 金 砖 游戏 程序 清单 。 


/. 模 块 2 设 定金 砖 可 取 的 颜色 、 相 应 重量 和 所 得 分 数 
以 及 装 和 人 用 6502 汇编 语言 编写 的 发 声 程序 。 

在 模块 2 内 设置 的 变量 有 

(数组 CO(15): 按 一 定 的 分 布 存放 低 分 辨 率 绘图 时 对 
应 于 深蓝 、 黄 、 灰 2、 棕 、 深 绿 五 种 颜色 的 色 码 。 

(2) 数 组 WA(15): 存放 有 关 色 码 金 砖 的 重量 。 

(3) 数 组 PA(15): 存放 有 关 色 码 金 砖 的 得 分 数 。 

模块 2 的 流程 图 : 见 图 3.4 


游戏 程序 入 口 ”10000 


定义 数组 CO, WA, PA 


数组 C0,WA*PA 依 次 置 
初 值 . 


即 + 进 制 768 号 单元 
开始 装 入 汇编 语言 
发 声 子 程序 ， 


四 
0 


图 3.4 模块 2 的 流程 图 


模块 2 所 对 应 的 BASIC 语句 标号 为 :10000 一 10132。 
标号 10000 为 游戏 程序 的 入 口 。 

2. 模 块 了 画 出 金山 与 其 顶 上 的 大 楼 。 在 屏幕 左上 角 画 
出 小 楼 房 , 所 画 小 楼 房 的 个 数 表示 本 次 比赛 结束 后 还 能 进行 
几 次 比赛 。 

在 模块 3 内 设置 的 主要 变量 有 : 
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(D)PO: 存放 游戏 者 总 得 分 的 百 位 以 上 的 值 , 即 不 包括 
个 位 和 十 位 上 的 两 个 零 。 

(2)IE: 存放 要 进行 比赛 的 次 数 , 初 值 为 3。 

(3)YY: 金山 上 大 楼 顶端 的 行 坐 标 ， 初 值 为 0。 

模块 3 的 细 化 结果 用 流程 图 表示 , 详 见 图 3.5S。 


0 


清 屏 ， 进 入 低 分 辨 绘图 状态 
显示 当前 游戏 者 的 得 分 


金山 有 十 层 。 利 用 双重 循环 ， 
从 屏幕 的 第 16 行 开始 ， 画 出 彩 
色 的 金山 。 由 顶 向 下 各 层 的 金 
砖 数 依次 为 ly 2, ...，10。 各 块 
金 砖 的 颜色 利用 随机 函数 确定 


GOSUB 1700 
画 出 屏幕 左上 角 的 小 楼 房 


GO0SUB 1000 
以 行 坐标 YY 为 基准 画 出 金山 
顶 上 的 大 楼 


| 
0 
图 3.5 模块 3 的 流程 图 
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模块 3 所 对 应 的 BASIC 语句 标号 为 :11900 一 一 13005。 

了 .模块 4.1 在 金山 底下 显示 闪烁 的 光标 块 。 游 戏 者 按 
键 移动 光标 块 , 使 它 与 想 要 控 取 的 金 夸 重合, 光标 块 内 烁 ， 
再 按 <X > 键 控 取 金 砖 。 

在 模块 4.1 内 设置 的 变量 有 ; 

(U)X: 保存 所 控 金 砖 的 列 坐标 ; 

(2)Y : 保存 所 控 金 砖 的 行 坐标 ; 

(3)IX: 光标 块 的 列 坐 标 ; 

(4)IY: 光标 块 的 行 坐标 ; 

(SJK : 按键 所 对 应 的 键 码 值 。 

模块 4.1 的 流程 图 见 图 3.6 

模块 4.1 所 对 应 的 BASIC 语句 标号 为 : 13010. 
13110。 

4 模块 4.2 统计 并 显示 游戏 者 本 次 控 砖 ,以 及 随 之 而 
葵 落 的 所 有 金 砖 的 得 分 。 同 时 在 金山 底下 依次 显示 已 控 取 和 
坠落 的 金 砖 。 

在 模块 4.2 内 设置 的 变量 有 : 

(DJKE: 在 屏幕 下 方 第 38 行 显示 金 砖 时 ， 存 放 必 须 显 示 
的 列 坐标 ; 

(C2)T: 工 为 0 表示 由 游戏 者 控 金 砖 , 工 为 1 表示 由 计算 
机 控 金 砖 ; 

(3)GP: 游戏 者 本 次 控 金 破 的 累计 得 分 , 它 省 略 了 个 位 
和 十 位 上 的 两 个 去 ; 

(4)Y: 初 值 为 已 控 金 砖 的 行 坐标 (通常 16 生 Y 六 35)， 一 
日 Y=14 将 引起 金山 上 的 大 楼 倒塌 ; 

(5)P，PS: 数组 的 下 标 ; 

(6) 数 组 S、SS: 保存 已 挖 取 金 砖 列 坐标 X 的 左 (或 右 ) 面 
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@ 


IX+19, 7 二 38 


GOSUB ”13900 
以 光标 块 (1Xy IY) 当前 所 在 位 置 
的 颜色 和 橙色 交替 显示 光标 块 


Y 
保存 所 控 取 金 砖 的 列 坐标 与 行 
坐标 于 X,Y 中 

1 

9 


图 3.6 模块 4.1 的 流程 图 


第 二 列 的 列 坐 标 ; 
(7)DO: 金 砖 失重 标志 ， 初 值 为 0。 一 旦 DO0= 1 表示 已 
控 走 金 破 或 险 落 金 砖 的 左 (在 ) 上 角 有 失重 的 金 夸 。， 


9 
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模块 4.2 的 流程 图 见 图 3.7 一 3.9。 


9 
| 


PO< (PO-1) 
游戏 者 总 得 分 减 去 100 分 ， 
若 PO<0， 则 PO<0 


GOSUB 15900 
显示 游戏 者 得 分 


设 定 : 由 游戏 者 控 金 砖 ， 列 坐标 
KE=0， 当前 得 分 GP=0。 即 T<0， 
KE 二 0 CP + 人 


GOSUB 1600 
用 想 要 控 走 金 砖 的 颜色 与 橙色 
显示 金 砖 ， 并 发 声 


数组 SCP) 的 下 标 置 初 值 p -0 


GOSUB 1200 
累加 本 次 控 走 金 砖 的 分 数 ， 打 
印 游戏 者 的 得 分 ， 在 金山 中 抹 
掉 控 走 的 金 砖 ， 将 它 移 到 屏 医 
第 38 行 上 显示 之 


0G0SUB 1300 
如 果 已 控 取 金 砖 的 列 坐 标 X 左 
( 或 右 ) 面 第 二 列 在 屏幕 范围 内 
， 则 将 这 些 列 坐 标 值 存 入 数组 
SCP)， 每 存 入 一 个 列 坐标 ， 下 标 
P 就 加 1 


| 
0 


图 3.7 模块 4.2 的 流程 图 (一 ) 


GOSUB 1400 
将 数组 S(P) 中 的 内 容 转 存 于 数 

组 SS(CL2) 中 ， 将 P 的 值 转 存 于 PS 
中 


金 砖 的 行 坐标 Y 减 2, 即 上 移 一 
层 Y<=Y-2 


T=1， 且 Y=14? 
计算 机 引起 大 楼 倒塌 ? 


Y P=(0 
即 数组 SC(P) 中 存 过 值 ? 


循环 初 值 L1=0 终 值 
步 长 


N 
N 


二 


已 挖 金 砖 左 ( 或 右 ) 面 第 二 列 的 坐标 送 X 
X -~ SS(CL1) 


GOSUB ”900 
一 旦 当前 位 置 的 金 砖 (X,Y) 失重 ， 则 置 DO 为 1 


GOSUB 1200 
取 当 前 失重 金 砖 的 颜色 ， 累 加 当前 失重 的 金 砖 的 得 分 ， 

打印 游戏 者 得 分 。 在 金山 中 抹 掉 失重 金 砖 ， 并 将 它 移 
到 第 38 行 上 显示 之 


GOSU8B 1300 

如 果 失重 金 夸 列 坐标 X 的 左 ( 或 右 ) 面 第 二 列 的 坐标 在 
屏幕 范围 内 ， 则 将 这 样 的 列 坐标 值 存 入 数组 S(P)。 每 
存 入 一 个 列 坐 标 ,就 加 1 


ULe 


计算 机 引起 大 楼 坠 8 
和 倒塌 处 理 ， 游戏 者 引起 大 楼 坠落 
转 19009 号 语句 转 18000 号 语句 


图 3.8 模块 4.2 的 流程 图 (二 ) 


N 
Y 
Se 
<EEE=15 全 一 p -Gbt3 | 一 
NT 
Y | 
| 这 107 一 一 中 一 GP42 了 
N 


在 屏幕 的 第 21 行 、 第 10 列 处 ， 以 闪烁 
方式 显示 ; !!!BONUS!!! 。 即 有 奖 


游戏 者 本 次 控 金 砖 的 得 分 
人 转 加 到 总 分 PO 


GP+GP-1 ，PO+POHl 


游戏 者 本 次 控 砖 的 得 分 减 去 1000 分 ， 转 加 到 
总 分 P0 中 去 ， GP.- GP-10 ，PO +PO+10 


GOSUB 15900 
显示 游戏 者 得 分 


_TN 


0) 
外 寺 呈 一 
员 T6000 号 语句 一 | 清除 屏幕 的 第 38'39 行 


图 3.9 模块 4.2 的 流程 图 (三 ) 
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模块 4.2 对 应 的 BASIC 语句 标号 为 : 13130 一 15110。 
5. 模 块 4.3 游戏 者 控 砖 引起 大 楼 坠落 和 倒塌 的 处 理 。 


模块 4.3 的 流程 图 见 图 3.10。 


COSUB 1890 


图 3.10 模块 4.3 的 流程 图 
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@ -一 | 设 定 由 计算 机 控 金 砖 
下 


GOSUB 1100 
以 另外 的 颜色 画 金 山顶 上 的 大 楼 


点 (TXTY) 移 到 金山 底层 的 右 端 
TX 39. TY 34 


点 (TXTY) 移 到 金山 上 一 
层 的 右 端 


TY TY-2，1X 37 


X -19,Y+- 20 
以 光标 块 (X,Y) 处 的 颜色 与 橙色 
显示 光标 块 ， 并 发 声 


当前 坐标 (TXTY) 
处 不 是 金 砖 ? 即 
SCRN(TXy TY)=0? 


计算 机 引起 大 楼 坠落 
和 倒塌 的 处 理 


GOSUB 1500 ， 


判别 计算 机 控 走 金 砖 (CTX, TY) 否 ? | 
已 控 ， 其 左 ( 或 右 ) 上 方 的 金 砖 
是 否 失重 ? 若是 。 置 DD 为 1 


和 


一 


用 爹 苞 (xy) 的 颜色 与 要 色 0 
苇 (X,Y 计算 机 控 走 金 砖 (X,Y) ,并 将 它 
显示 此 金 砖 ， 并 发 声 移 到 第 38 行 上 显示 之 

二 | 

村 


由 游戏 者 再 次 控 金 砖 
转 13000 ”号 语句 


图 3.11 人 模块 5 的 流程 图 
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模块 4.3 对 应 的 BASIC 语句 标号 为 : 18000 一 18200， 

20001 一 20120。 

6. 模 块 5 计算 机 从 右 向 左 , 由 底 向 上 逐 层 寻 找 可 控 的 
- 块 金 砖 。 在 模块 $ 内 设置 的 变量 有 : 

(DTX : 屏幕 上 一 点 的 列 坐标 ; 

(2) TY : 屏幕 上 一 点 的 行 坐标 。 

模块 $ 的 流程 图 见 图 3.11。 

模块 5 对 应 的 BASIC 语句 标号 为 :16000 一 
17100，19000 一 19070。 


四 、 控 金 砖 游戏 的 子 程序 

在 控 金 砖 游 戏 的 详细 设计 过 程 中 , 我 们 设置 了 许多 子 程 
序 ， 以 便 需 要 时 调用 。 现 在 列举 主要 的 子 程序 如 下 

1.SUB 1700 : 画 出 屏幕 左上 角 的 大 楼 房 。 

2.SUB 1000 : 画 大 楼 房 。 

3.SUB 1100 : 用 别 的 颜色 画 大 楼 房 。 

4.SUB 13900: 用 光标 块 的 颜色 和 橙色 显示 光标 块 。 

5.SUB 15900: 显示 游戏 者 本 次 控 金 砖 的 得 分 和 总 分 。 

6.SUB 1600 : 用 金 砖 的 颜色 和 橙色 显示 此 金 砖 ， 并 发 
和 

7.SUB 1200 : 累加 游戏 者 本 次 控 砖 的 得 分 ， 显 示 所 得 分 
数 。 其 次 在 金山 中 抹 掉 控 走 了 的 金 砖 ， 并 将 它 移 到 屏幕 底下 
第 38 行 上 显示 之 。 当 计算 机 控 砖 时 ， 仅 做 后 一 工作 。 

8.SUB 1300 : 如 果 所 控 金 砖 (或 失重 金 砖 ) 的 列 坐标 X 
的 左 (或 右 ) 面 第 二 列 在 屏幕 范围 内 , 那么 将 这 些 坐 标 值 存 人 
数组 SP)。 每 存 和 人 一 个 列 坐标 ,下 标 P 就 加 1。 

9.SUB 1400 : 将 数组 SP) 的 内 容 转 存 于 数组 SS(L2) 中 ， 
P 的 值 转 存 于 PS 中 。 
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10.SUB 900 : 判别 金 砖 X，Y) 是 否 失 重 ? 如 果 失 重 ， 置 

DO 为 1， 否则 返回 。 

11.SUB1500 : 判别 计算 机 已 控 走 了 金 砖 TX, TY)， 其 ， 
左 ( 或 右 ) 上 方 的 金 砖 是 否 失重 ?若是 ， 置 DO 为 1。 

12. SUB 18950: 两 次 调用 发 声 汇编 语言 子 程序 。 

下 面 我 们 再 画 出 子 程序 SUB 900 和 SUB 1500 的 流程 
图 ,至 于 其 他 子 程序 的 流程 图 都 比较 简单 ， 这 里 不 再 一 一 画 
出 。 

子 程序 SUB 900 判别 金 砖 X,，Y) 是 否 失 重 ， 其 流程 图 
见 图 3.12 


Cx,Y) 的 左下 角 有 
而 且 (x,Y) 能 


， 而 县 CT) 能 被 
右上 角 的 砖 压 住 ? 


图 3.12 子 程序 SUB 900 的 流程 图 
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下 面 的 附 图 将 进一步 帮助 读者 理解 子 程序 SUB 900 。 
图 3.13 画 出 了 金 砖 (X，Y) 不 失重 的 情况 。 图 3.14 画 出 了 人 金 
砖 (X，Y) 失 重 ， 要 坠落 的 情况 。 


人 2,Y-2) 此 砖 已 控 走 戌 村 -2) 


或 坠落 
CT 
| 金 全 1 鱼 态 


图 3.13 金 砖 (X,Y) 不 失重 


(CX-2;Y-2) (X+27Y-2) (CX-2,Y-2) (X+2,Y-2) 
人 
| 轻 或 更 轻 | (xY) | 重 轻 或 更 轻 

| -| 加 

有 王 广 -一 -一 -一 上 2 
金 和 砖 | | | 上 | | 人 金 ， 再 
本 5 有 | 
此 砖 已 控 走 或 坠落 


图 3.14 金 砖 X，Y) 失 重要 险 落 


子 程序 SUB 1500 的 流程 图 如 图 3.15 所 示 。 
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计算 机 和 欲 控 
金 砖 (TX,TY) 的 左上 
方 有 砖 ? 


欲 控 砖 (TX,TY) 的 左面 
有 了 砖 ， 而 且 (TXTY) 的 左 
方 金 砖 不 失重 ? 


计算 机 和 欲 控 金 砖 
有 砖 吗 ? 


欲 控 砖 (TXTY) 的 
右面 有 砖 ， 而 且 (TX'TY) 
的 右上 方 金 砖 不 失重 ? 


| 。 运 加 
图 3.15 子 程序 SUB 1500 的 流程 图 
第 四 节 ”游戏 程序 的 测试 (测试 阶段 ) 


人 们 常 有 这 样 一 种 错觉 ， 认 为 程序 编写 出 来 以 后 ,软件 
的 研制 工作 就 接近 尾声 了 。 其 实 不 然 , 为 了 保证 软件 的 质量 , 
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测试 往往 是 开发 软件 中 占 时 最 长 的 一 个 阶段 。 测 试 是 通过 
人 工分 析 程 序 或 者 使 用 测试 数据 执行 已 经 编写 好 的 程序 来 发 
现 程序 中 存在 的 错误 。 这 里 简单 介绍 一 下 进行 人 工 测试 和 动 
态 测试 的 方法 。 在 人 工 测试 时 ,可 由 程序 编制 者 逐 句 讲述 程 
序 的 逻辑 , 在 讲述 过 程 中 , 组 员 可 以 提出 疑问 。 经 验 表明 ， 
在 讲述 过 程 中 许多 错误 常常 是 程序 编制 者 本 人 发 现 的 。 把 自 
己 编 写 的 程序 讲 给 别人 听 是 一 种 简单 、 有 效 的 人 工 测试 方 
法 。 至 于 动态 测试 则 是 为 了 发 现 错误 而 执行 程序 的 过 程 ， 其 
关键 是 设计 好 测试 用 例 数据 。 动 态 测试 常用 的 方法 有 *“ 黑 盒 
法 "和 * 白 盒 法 "两 种 。 如 果 使 用 “ 黑 盒 法 ", 测试 人 员 将 程序 
段 看 成 为 一 个 “ 黑 盒 "， 只 检查 此 段 程序 是 否 符合 它 的 功能 
说 明 , 其 测试 用 例 完 全 可 以 根据 程序 段 的 功能 说 明 来 设计 。 
例如 ,可 以 把 输入 数据 分 割 为 有 限 个 “等 价 类 ”， 用 等 价 类 中 
若干 各 有 代表 性 的 数据 来 测试 。 又 如 ,可 以 在 输入 、 输 出 数 
据 边 界 附 近来 选取 测试 用 例 等 等 。 如 果 使 用 * 白 盒 法 "， 则 测 
试 人 员 必 须 首先 了 解 程序 段 内 部 的 逻辑 结构 ， 然 后 选择 测试 
用 例 ,使 该 组 测试 用 例 能 极 大 地 覆盖 程序 内 部 的 逻辑 结构 的 
主要 语句 、 路 径 及 其 条 件 。 当 然 要 在 测试 的 每 一 个 阶段 留 下 
测试 用 例 和 测试 记录 ,以 备 分 析 研 究 。 


一 、 分 模块 测试 

分 模块 测试 是 要 对 每 一 个 模块 (包括 子 程序 ) 的 输入 、 输 
出 进行 测试 。 要 尽 可 能 把 这 些 模块 中 隐 含 的 各 种 错误 找 出 
来 。 也 就 是 说 ， 分 模块 测试 就 是 首先 集中 测试 程序 的 较 小 的 
组 成 部 分 , 而 不 是 一 开始 就 把 整个 程序 作为 一 个 整体 进行 测 
试 。 这 样 做 的 原因 有 三 。 第 一 、 能 使 排 错 工作 ( 即 找 出 并 改 
正 各 模块 中 的 错误 的 过 程 ) 变 得 较为 容易 。 第 二 、 使 得 由 若 
干 个 模块 组 成 的 模块 组 测试 过 程 也 变 得 较为 容易 。 第 三 、 往 
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往 可 以 由 几 个 人 并 行 地 测试 若干 个 模块 ， 人 风 介 村 全 全 全 
行 性 ， 从 而 加 快 测试 的 进程 。 

进行 模块 测试 时 ,手头 必须 要 有 两 种 资料 : 模块 的 功能 
说 明 书 (包括 各 个 模块 的 输入 、 输 出 规定 )， 以 及 与 各 个 模块 
相对 应 的 源 程序 。 分 块 测试 时 ,一 般 倾向 于 先 用 白 盒 测试 法 
这 样 容易 发 现 各 个 模块 的 逻辑 错误 。 然 后 使 用 黑 盒 测试 法 ， 
进 - - 步 发 现 不 满足 模块 功能 要 求 等 方面 的 错误 。 


二 、 整 个 程序 的 测试 

如 何在 模块 测试 的 基础 上 ,最 终 有 效 地 完成 对 整个 程序 
的 测试 , 这 是 个 十 分 重要 的 问题 。 也 就 是 说 , 是 应 先 分 别 测 
试 各 个 模块 ,然后 再 把 模块 结合 成 程序 呢 ?还 是 应 把 已 经 测 
试 好 的 那些 模块 同 下 一 个 将 要 测试 的 模块 结合 起 来 进行 测试 
呢 ? 第 一 种 做 法 称 为 非 增 量 测试 , 第 二 种 做 法 称 为 增 量 测 
试 。 

以 图 3.16 为 例 , 图 中 画 出 了 程序 中 的 六 个 模块 : 
人 BCG， 了 ,也 ; 节 。 


3.16 


非 增 量 测试 首先 把 这 六 个 模块 作为 独立 实体 ,分别 进 行 
模块 测试 ,最 后 把 这 些 模块 结合 在 一 起 形成 程序 。 在 对 每 一 
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个 模块 测试 时 都 需要 有 特定 的 “驱动 模块 ”> 和“*STUB 模块 "。 
所 谓 驱 动 模块 是 为 了 驱动 或 向 被 测试 模块 传递 测试 用 例 以 及 
显示 被 测试 模块 所 产生 的 结果 而 编写 的 小 程序 。 例 如 ， 为 了 
测试 模块 B， 首 先 要 设计 测试 用 例 ,再 由 相应 驱动 模块 来 驱 
动 , 传递 测试 用 例 和 显示 B 所 产生 的 结果 。 另 外 , 由 于 模块 
B 要 调用 模块 E, 这 件 事由 STUB 模块 承担 ， 它 必 模 拟 正 的 
功能 (显示 编制 驱动 模块 和 STUB 模块 是 件 麻 烦 事 )。 六 个 模 
块 全 部 测试 完成 之 后 ,再 把 它们 组 合成 一 个 程序 。 

我 们 介绍 的 重点 在 于 第 二 种 增 量 测试 法 。 这 种 方法 首先 
把 已 经 测试 好 的 模块 同 将 要 测试 的 下 一 个 模块 结合 起 来 ， 而 
不 是 孤立 地 测试 各 个 模块 。 增 量 测试 法 ， 可 以 从 * 顶 ?开始 ， 
也 可 以 从 * 底 ?开始 。 如 果 从 “ 底 ? 开 始 , 第 一 步 是 测试 模块 
E，C 和 F。 这 一 步 工 作 可 以 平行 进行 , 但 必须 为 每 一 模块 
准备 好 必要 的 驱动 模块 。 下 一 步 测试 模块 B 和 D 时 ,把 它 
们 分 别 同 和 下 结合 起 来 测试 。 换 句 话说 ,为 了 测试 B, 要 
结合 测试 用 例 写 出 驱动 模块 ， 并 测试 模块 组 B - E。 把 下 一 
个 要 测试 的 模块 同 已 经 测试 好 的 全 部 或 部 分 模块 结合 起 来 进 
行 “ 增 量 ? 测 试 的 过 程 ， 要 一 直 进 行 到 测试 好 最 后 一 个 顶层 模 
块 为 止 。 

下 面 我 们 举 两 个 例子 来 说 明 如 何 利用 增 量 测试 方法 ,由 
底 向 上 地 对 挖 金 砖 游 戏 的 模块 进行 测试 。 

例 1 为 了 测试 控 金 砖 游戏 中 模块 3 所 具有 的 功能 (在 
屏幕 上 画 出 一 座 彩 色 的 金山 ,就 必须 首先 测试 模块 2)， 完 
对 金 砖 可 取 的 颜色 、 相 应 重量 与 得 分 的 设 定 工作 ， 可 以 采用 
人 工 测试 的 方法 审查 模块 2 的 算法 逻辑 和 全 部 BASIC 语句 ， 
从 而 完成 对 模块 2 的 测试 。 

模块 2 的 算法 步骤 是 : 

(]) 定 义 数组 CO(13)，WA(15)，PR(15)。 
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(2) 在 数组 CO(0) 一 CO(15) 内 ,， 设 定 低 分 辩 率 绘图 时 对 
应 于 深蓝 、 黄 、 灰 2、 棕 、 深 绿 五 种 颜色 的 色 码 。 这 些 色 码 
的 分 布 情 况 , 由 10100 号 语句 与 10102 号 语句 设 定 。 

(3) 设 定 上 述 五 种 颜色 金 砖 的 重量 ,以 及 屏幕 底 色 (黑色 ) 
的 重量 为 0。 

(4) 设 定 控 取 不 同 颜色 金 砖 的 得 分 。 

金 砖 可 取 的 颜色 、 相 应 重量 和 得 分 ,以 及 各 色 金 砖 的 概 
率 分 布 见 表 3.1。 


表 3.1 


Taore 
[- 王 | 页 [到 | 


顺便 提 一 下 , 由 表 3.1 可 知 ， 为 了 获取 高 分 ,游戏 者 应 
尽量 多 挖 次 蓝 、 黄 、 灰 三 种 颜色 的 金 砖 。 如 果 仅 挖 一 块 绿 色 
金 砖 的 话 ， 那么 总 分 就 要 被 倒 扣 掉 100 分 。 

模块 2 的 测试 完成 之 后 ,再 把 它 与 模块 3 结合 起 来 进行 
增 量 测试 。 我 们 采用 “ 黑 盒 法 "运行 BASIC 程序 段 : 
10000 一 10110 与 12010 一 12060。 其 运行 结果 ， 应 该 在 屏幕 
上 出 现 一 座 彩 色 的 金山 ,如 图 3.17 所 示 。 
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图 3.17 金山 堆 释 图 


必须 按 模块 3 的 功能 要 求 检查 屏幕 上 显示 的 金山 : 1) 是 
否 有 十 层 ;:2) 由 项 向 下 ,各 层 的 金 砖 数 是 否 依 次 为 
1，2，.…10;3) 金 砖 是 否 取 蓝 、 黄 、 灰 、 棕 、 绿 五 种 颜色 中 的 
一 种 ; 4) 屏 幕 上 的 A,B, C,D,E 各 点 的 坐标 应 为 : 
A(18，16)，B(20，16)，C(0,，34)，D(4,， 34)，E(37，34);5) 再 
次 运行 上 述 两 段 程序 ,检查 金 砖 的 颜色 是 否 被 随机 设 定 。 

例 2 在 模块 2、 模块 3 测试 完成 的 基础 上 ,再 增 量 测 
试 模块 4.1 (在 金山 底下 显示 闪烁 的 光标 块 ) 以 及 按键 移动 光 
标 ， 使 它 与 想 要 控 的 金 砖 重合 ， 光 标 块 闪 烁 。 

由 于 上 述 功 能 是 否 实现 ,完全 可 以 从 屏幕 上 反映 出 来 ， 
所 以 对 模块 4.-1 功能 的 测试 主要 采用 “ 黑 盒 法 "。 其 具体 做 
法 是 在 例 1 两 段 程序 的 基础 上 , 再 增加 程序 段 13010 一 
13950y 执行 这 三 段 程序 ,然后 检查 : 

(在 金山 底下 坐标 为 (19，18) 的 地 方 , 是 否 有 黑色 与 橙 
色 交 蔡 闪 烁 的 光标 块 。 

( 2) 分别 按键 <U> ，<D>，<->>，<< 生 >， 检查 光标 
块 是 否 分 别 按 规定 移动 , 并 且 光 标 块 移 到 哪里 就 应 该 在 哪里 
闪烁 。 

一 旦 发 现 错误 , 大 都 可 在 最 后 加 进来 的 程序 段 中 找到 错 
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误 ,并 改正 之 。 

由 上 可 见 ， 增 量 测试 法 的 明显 优点 是 : 

- (U 工 作 量 较 小 。 因 为 它 利用 已 测试 好 的 模块 来 代替 非 
增 量 测 试 时 所 必须 的 驱动 模块 (由 “项 "开始 增 量 测试 时 ) 或 
STUB 模块 (由 “ 底 ? 开 始 增 量 测试 时 )。 

(2) 排 错 比 较 容 易 。 因 为 错误 大 都 同 最 后 加 进来 的 模块 
有 关 ， 故 确定 这 类 错误 的 位 置 就 比较 容易 。 

(3) 对 模块 之 间接 口 配合 不 当 或 模块 间 假 设 等 方面 的 错 
误 , 可 以 在 早期 的 模块 组 合 测试 时 就 发 现 。 而 在 非 增 量 测试 
时 ,这 类 错误 在 结合 成 一 个 完整 程序 之 前 是 根本 不 会 暴露 的 ， 
况且 即使 发 现 了 错误 也 难于 定位 。 

(4) 可 以 取得 比较 彻底 的 测试 效果 。 例 如 ， 由 “* 底 ?开始 
测试 上 层 模块 时 ， 其 下 层 模 块 也 会 随 之 一 起 执行 ,这 就 有 可 
能 暴露 原先 仅 对 其 下 层 模块 单独 测试 的 不 足 之 处 。 而 非 增 量 
测试 时 ,各 模块 测试 完成 后 ,还 会 受到 进一步 的 考验 。 

当然 , 增 量 测试 方法 也 有 缺点 : 首先 是 测试 占用 的 计算 
机 时 间 要 比 非 增 量 测试 多 。 例 如 , 由 底 向 上 进行 增 量 测试 时 ， 
上 层 模 块 所 属 的 所 有 下 属 模 块 都 要 执行 ， 而 用 非 增 量 方法 
测试 时 ,并 非 一 定 如 此 。 其 次 是 在 增 量 测试 阶段 的 初期 ， 平 
行 测试 的 机 会 不 如 非 增 量 测试 多 。 但 总 起 来 说 , 增 量 测试 方 
法 要 比 非 增 量 测试 方法 优越 。 

至 于 使 用 增 量 测试 时 ， 究 竟 是 由 底 向 上 进行 还 是 由 项 向 
下 进行 ， 可 参照 下 列 情况 而 定 。 
采用 * 由 项 向 下 " 增 量 测试 法 
ID) 如 果 错 误 主 要 发 生 在 程序 的 


采用 * 由 底 向 上 "? 增 量 测试 法 
1) 如 果 错 误 主要 发 生 在 程序 的 


2) 容 易 建 立 测试 条 件 。 
3) 观 察 测试 结果 比较 容易 。 


- 层 
2) 可 以 早期 展示 程序 的 轮廓 ， 
鼓舞 开发 士气 。 
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第 五 节 ”游戏 程序 的 运行 与 维护 阶段 
及 文档 资料 的 汇集 


软件 经 过 测试 发 现 错误 之 后 ， 要 找 出 引起 错误 的 原因 所 
在 并 改正 之 , 从 而 才能 进入 运行 和 维护 阶段 。 这 一 阶段 是 软 
件 作 “贡献 "的 阶段 。 从 程序 的 效益 角度 看 ， 希 望 这 一 阶段 越 
长 越 好 ,以 使 软件 达到 最 大 的 收效 。 在 软件 运行 的 过 程 中 ， 
需要 不 断 地 进行 维护 。 对 软件 的 维护 可 分 为 三 类 

(改正 性 维护 : 包括 对 软件 不 能 达到 系统 说 明 书 所 要 求 
的 性 能 上 的 缺陷 和 编写 上 的 隐 含 错误 而 做 的 改正 。 

(2) 适 应 性 维护 : 包括 因 适 应 内 、 外 部 环境 的 变化 所 需 进 
行 的 变更 。 

G3) 提 高 性 维护 : 包括 为 了 提高 软件 的 处 理 效率 、 性 能 和 
便于 维护 而 做 的 变更 。 

因此 ,重视 对 软件 的 维护 ,可 以 提高 软件 的 性 能 、 效 率 
与 质量 ,延长 软件 的 寿命 。 

拿 控 金 砖 游戏 来 说 ， 原 设计 尚 有 一 些 不 足 之 处 。 例 如 ， 
轮 到 游戏 者 或 计算 机 控 砖 时 ,屏幕 上 最 好 要 有 指示 信息 。 又 
如 ， 当 计算 机 控 砖 引起 金山 上 的 大 楼 坠落 时 ,画面 的 设计 还 
不 够 明显 等 等 。 读 者 可 以 对 此 进行 改正 性 维护 。 再 如 ， 当 游 
戏 者 迫使 计算 机 控 倒 大 楼 时 ,应 对 游戏 者 进行 重 赏 , 读者 可 
对 此 进行 提高 性 维护 . 我 们 在 程序 中 增设 19070 号 语句 来 
“ 重 赏 "的 做 法 ， 你 同意 吗 ? 

最 后 , 我 们 还 要 强调 ,软件 生存 期 的 每 个 阶段 都 产生 了 
相应 的 文档 , 文档 是 软件 开发 每 个 阶段 的 自然 结果 。 必 须 把 
这 些 文档 汇集 起 来 作为 软件 产品 的 组 成 部 分 。 
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文档 应 该 包括 : 

(]) 系 统 说 明 书 ; 

(2) 模 块 说 明 书 (包括 模块 结构 图 和 模块 的 功能 说 明 ); 
(3) 详 细 设计 流程 图 和 程序 清单 ; 

(4) 测 试 和 维护 记录 ; 

($) 使 用 说 明 书 。 

文档 按 其 使 用 对 象 的 不 同 ， 有 程序 员 文 档 和 用 户 文档 之 


程序 员 文 档 是 供 计算 机 专业 人 员 阅 读 的 ,通常 包括 上 面 
列举 的 五 种 文档 中 的 前 四 种 。 编 写 程序 员 文 档 时 ， 可 以 使 用 
计算 机 专业 术语 , 但 应 当 鼓励 使 用 清晰 、 简 明 的 自然 语言 来 
描述 ,使 文档 简短 、 容 易 理 解 。 正 如 软件 的 总 体 结 构 十 分 重 
要 一 样 ,文档 的 总 体 结构 也 很 重要 ,所 以 执 写 文档 之 前 有 必 
要 仔细 构造 好 文档 的 结构 。 

用 户 文档 是 供用 户 阅 读 的 。 用户 文档 主要 是 指 用 户 使 用 
手册 。 在 大 多 数 情况 下 , 用 户 不 是 计算 机 专业 人 员 , 因此 编 
写 用 户 文档 反而 比 编写 程序 员 文 档 困 难 。 编 写 用户 文 档 应 该 
考虑 到 : 1) 要 告诉 用 户 软件 系统 有 哪些 功能 ;2) 要 提供 详细 的 
按 步骤 使 用 系统 的 说 明 ;3) 要 解释 可 能 遇 到 的 信息 ,包括 错误 
信息 的 含义 ;4) 要 指出 如 何 从 错误 中 恢复 运行 ;3) 要 针对 预期 
中 的 用 户 水 平 (如 阅读 能 力 、 数 学 知识 、 计 算 机 知识 水 平 ) 来 
编写 避免 专 业 术 语 , 使 说 明 简 短 明 了 ;6) 在 关键 的 地 方 给 出 
操作 示例 。 
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第 四 章 ”游戏 程序 的 编程 方法 


富有 吸引 力 的 游戏 程序 是 因为 展现 了 色彩 缤纷 、 美 观 漂 
亮 的 图 案 , 产生 出 生动 有 趣 、 能 够 灵活 控制 的 动画 形象 , 配 
合 着 优美 动听 、 效 果 通 真 的 音响 ……。 那 么 这 些 程序 是 如 何 
编制 的 ”富有 想象 力 的 青少年 朋友 们 不 仅 会 提出 这 个 问题 ， 
还 希望 通过 学 习 ， 亲 手 在 计算 机 上 编制 出 更 新 更 富有 情趣 
的 游戏 程序 。 在 这 一 章 里 ,我 们 将 探讨 游戏 程序 的 编程 方法 
与 某 些 常用 技巧 。 

对 于 图 形 的 程序 设计 ， 在 许多 有 关 AppleII 的 程序 
设计 书籍 中 都 有 不 同 程度 的 论述 。 对 我 们 来 说 ,最 理想 的 方 
法 就 是 使 用 各 种 现成 的 、 成 熟 的 绘图 工具 软件 来 画 出 各 种 需 
要 的 图 形 ,并 涂 上 相应 的 色彩 。 


第 一 节 图形 变换 与 窗口 操作 


当 我 们 依据 游戏 程序 的 方案 进行 绘画 , 产生 了 游戏 的 背 
景 图 和 各 种 物体 形象 的 图 形 后 ,依据 游戏 的 进程 ,需要 经 常 
对 各 种 图 形 作 位 置 的 移动 、 形 状 大 小 的 改变 以 及 更 换 它 的 方 
向 角度 ， 这些 操 作 称 为 图 形变 换 。 但 有 时 我 们 又 要 将 图 形 中 
的 某 一 部 分 裁剪 下 来 ,进行 搬移 、 转 动 、 放 大 ,以便 产生 更 
强 的 局 部 效果 ,这 就 需要 使 用 窗口 操作 的 技巧 。 
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一 、 平 移 变换 

一 个 图 形 在 保持 它 的 上 、 下 、 左 、 右 方向 不 变 的 情况 下 
从 屏幕 上 的 一 处 移 到 另 一 处 称 为 图 形 的 “平移 "。 
为 了 完成 一 幅 图 形 的 平移 操作 ,程序 中 要 进行 下 述 三 部 
分 工作 : 

(D 计 算出 被 平移 的 图 形 上 的 各 个 点 的 坐标 位 置 ; 

(2) 擦 去 原来 位 置 上 的 图 形 ; 

(3) 在 新 坐标 上 再 现 原 图 形 。 

利用 APPLE SOFT 语言 编制 图 形 时 ,可 以 使 用 矢量 图 
形 表 的 方法 来 绘图 , 平移 过 程 只 是 移动 矢量 图 形 表 的 起 点 坐 
标 。 若 矢量 图 形 表 的 起 点 坐标 为 (X，Y), 平移 水 平 距离 为 
H， 垂直 距离 为 V, 那么 平移 后 新 的 坐标 位 置 的 计算 公式 为 


PX 三 X+H 
PY =Y+V 


上 式 中 (PX，PY) 即 为 平移 后 所 得 的 新 坐标 。 在 中 华 学 
习 机 的 高 分 辩 率 作 图 屏幕 上 ，H 为 正 表 示 图 形 向 右 移 动 , H 
为 负 则 表示 图 形 向 左 移动 ;V 为 正 表 示 图 形 向 下 移动 ,V 为 负 
则 表示 图 形 向 上 移动 。 

程序 4.1 是 一 块 石 头 沿 着 斜坡 滚 下 来 的 平移 过 程 。 

这 是 一 个 斜 方向 的 平移 ,X 从 20 到 250,Y 则 是 
X/2。 本 程序 利用 了 中 华 学 习 机 上 高 分 辩 率 绘图 语句 中 的 
ROT 语句 来 产生 石头 滚 坡 时 的 翻转 动作 。 图 4.1 的 石头 图 
形 是 用 矢量 图 形 表 画 出 的 。 程 序 中 使 用 XDRAW 语句 来 实 
现 图 形变 换 ， 擦 去 原 图 形 ,并 在 新 位 置 上 再 现 图 形 。 

K =PEEK(49200) 用 来 触发 中 华 学 习 机 上 的 扬声器 , 使 
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其 产生 一 个 喷 哄 声 ， 模 拟 石 头 滑坡 时 的 声响 。 


妊 


图 4.1 石头 滚 下 坡 


程序 4.1 石头 滚 下 坡 
LIST 


10 HGOR ; HCOLOR= 3 

15 POKE 232,0: POKE 233, 16 
20 ROT= 0: SCALE= 1 

30 HPLOT 0,25 TO 250,150 

40 FOR X = 20 TO 250 STEP 10 
50 Y=X/2 

60 XDRAW 1 AT XyY 

70 FOR J=1TT0O 10:K= PEEK (49200): NEXT 
80 

90 

95 

99 


XDRAW 1 AT XY 

R= (R+1l16)，(R<47): ROT= R 
NEXT 

RUN 


石头 的 矢量 图 形 表 数 据 : 

1000-- 01 00 04 00 20 25 24 25 
1008- 2D 2D 242D 24 2D 2D 2E 
1010--2E 2E 2E 2E 36 36 26 24 
1018 一 3D 36 46 43 43 1 2 瑟 2E 
1020-- 2E 36 363E 3E 3E 3E 3E 
1028- 3F 3F 4F 11 3E 3E 3F 3E 
1030 一 3F3kF 3bE3C3GC3C3C 3 
1038 一 3F 2727 27 3C 2C 2C 2C 
1040- 2D 2D 2D 2D 2D DD DB DB 
1048 一 20 3F 24 27 2D 2C 2C 2C 
1050- 3D BD 06 00 


二 、 比 例 变换 
依据 需要 将 图 形 放大 或 缩小 ,或 者 调整 图 形 的 纵横 比例 
以 改变 图 形 的 形状 。 这 些 都 可 以 通过 比例 的 变换 米 实 现 。 
为 了 将 原 有 图 形 沿 X 方向 扩大 (或 者 缩小 )H 倍 , 沿 Y 
方向 扩大 (或 者 缩小 )V 倍 , 那么 只 需 进行 比例 变换 ， 其 计算 
公式 为 : 
SX=H * 和 
XY=VxY 
上 式 中 H 为 水 平方 向 的 比例 因子 ，V 为 垂直 方向 的 比 
例 因子 , 若 H=V,， 而 且 大 于 1, 则 图 形 被 放大 ; 若 H=V， 而 
且 小 于 1 及 不 等 于 零 , 则 图 形 被 缩小 。 
若 比 例 变换 中 所 取 比 例 因子 了 不 等 于 V. 则 图 形变 换 
后 产生 变形 。 如 下 图 4.2 中 将 原 (a) 通 过 不 同 的 比例 因子 ,所 
得 到 (b) 与 (c) 的 变形 图 形 。 
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H=”! V=! H=[  VY=2 


州 <45 V=L 


图 4.2 图 形 的 比例 变换 


由 于 显示 屏幕 纵横 比例 的 关系 , 依照 普通 圆 方程 定义 的 
坐标 点 画 出 的 圆 ,在 屏幕 上 显示 出 来 的 往往 是 椭圆 。 这 时 可 
运用 “比例 变换 ”， 选 取 适 当 的 长 宽 比 例 因子 进行 调整 ,使 它 
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在 屏幕 上 看 起 来 象 一 个 真正 的 圆 ， 

在 中 华 学 习 机 上 运行 的 APPLESOFRTBASIC 语言 的 高 
分 辩 率 绘图 语句 中 有 矢量 放大 语句 SCALE, 图 4.3 吕 是 利 
用 SCALE 语句 来 实现 机 器 人 图 形 的 比例 变换 的 。 机 器 人 每 
次 放大 一 倍 (H=V), 这 里 共 放 大 四 次 ， 其 造型 亦 是 用 矢量 图 
形 表 画 出 的 。 


图 4.3 机 器 人 放大 


程序 4.2 ”机 器 人 放大 
LIST 
10 HGR2 ; HCOLOR= 3: ROT= 0: SCALE=1 
15 POKE 232,0: POKE 233, 16 
20 X = 100:Y = 100 
30 FOR Q=17To5 
40 XDRAW 1 AT XyY 
50 FOR ITIL=1TIT0O10:K= PEEK (49200): NEXT 
60 IFQ=57THEN END 
70 XDRAW 1 AT X,Y 
80 SCALE= QA 
90 NEXT 


机 器 人 的 矢量 图 形 表 数 据 : 
1000- 01 00 04 00 24 2D 25 27 
1008-- 25 27 25 27 25 27 25 67 
1010- 09 24 242D 24 2D 2D 2D 
1018- 2D 352E 35 36 76 31 36 
1020- 36 36 36 2D 35 26 D8 20 
1028-- 24 24 24 FC 33 36 36 36 
1030-- 36 3676 2B 2D 36 3F 3F 
1038- 3F 3F 3F 3F 3F 3F 3F 27 
1040- 2C 2D 24 24 24 24 24 24 
1048-6C 29453B 3F 0C 6D 49 
1050- AD 3F 77AD 32 3F 3F 3F 


1058-- 3F 2796 92 92 92 D2 BB 
1060- 17 172D 2D 2D 2D 1C 1C 


1068- 1C 6F 494909 17 17 17 
1070- 2D2D 2D2D 1IC1IC IC 3F 
1078 一 00 


三 、 旋 转变 换 


将 屏幕 上 显示 的 图 形 绕 某 一 点 旋转 一 定 的 角度 ， 即 为 
旋转 变换 。 表 现 物体 绕 轴 进 行 圆 周 运动 就 要 使 用 图 形 的 旋转 


图 4.4 示 出 屏幕 上 有 一 钟 摆 , 它 在 某 一 时 刻 的 坐标 为 
(X、Y)、 基 准点 的 坐标 为 (X0，、Y0)， 摆 动 的 旋转 角度 为 A( 道 


时 针 方向 为 正 、 顺 时 针 方 向 为 负 ， 


动 轨迹 坐标 的 计算 公式 为 : 


以 弧度 为 单位 )， 该 点 的 运 


RX=X0+(X-X0) xcos(A)+(Y-Y0)x Sin(A) 


RY=Y0+(Y 一 Y0)x cos(A)+(X-X0) x sin(A) 
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(Xe Ye) 


(X*Y) (RX，RT) 
图 4.4 钟 摆 的 摆动 


根据 这 一 原理 ,下 面 我 们 给 出 一 个 机 器 人 荡 秋 千 的 图 形 
程序 。 摆 动 的 轨迹 是 通过 式 X=139+RxSINGD 及 Y=Rx 
COS(D) 这 两 个 语句 计算 得 到 的 ,其 中 半径 R 的 长 度 为 80。 
语句 CALL62450 为 调用 清高 分 辨 率 当 前 页 面 的 子 程序 清 
屏 后 HCOLOR =0 。 程 序 中 机 器 人 的 造型 与 上 例 中 的 “机 器 
人 "相同 , 用 同一 矢量 图 形 表 画 出 ( 见 图 4.5)。 


图 4.5 机 器 人 荡 秋 千 
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程序 4.3 机 器 人 荡 秋千 
LIST 


10 HGR : POKE - 16302,0 

20  POKE 232,0: POKE 233,16 

30 SCALE= 1; ROT= 0 

40 R = 80;PI = 3.1415926:S = 0.08 
50A=- -PI/6:B=pPlIV/6:T=pPI/36 
70 FOR I=ATOBSTEP SGN (B -A)*#S 
80X=139+R# SIN(I) 

90Y -=-R# cos (I) 

100 POKE 230,32: POKE  - 16300,0 

110 HCOLOR= 3: DRAW 1 AT X,Y 

120 HPLOT 139,0 TO X,Y 

130 HPLOT 139,0 TO X + 24)Y 

140 ”POKE 230,64: CALL 62450 

160 HCOLOR= 3: DRAW 1 AT X,Y 

170 HPLOT 139,0 TO XY 

180 HPLOT 139,0 TO X + 24;,Y 

190 POKE  - 16299,0: POKE 230,32: CALL 62450 
195 NEXT 

200A=B:B= -B-T: GOTO 70 


机 器 人 的 矢量 图 形 表 数 据 : 
1000- 01 00 04 0024 2D 25 27 


1008-- 25 27 25 27 25 27 25 67 
1010- 0924242D 242D 2D 2D 


1018- 2D 35S 2E 35 36 76 31 36 
1020- 36 3636 2D 35 26 D8 20 
1028-- 24 24 24 FC 33 36 36 36 
1030-- 36 36 762B 2D 36 3F 3F 
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1038= 3F3F3F3F3F3FE3E27 
1040- 2C 2D 24 24 24 24 24 24 
1048- 6C 2945 3B 3F 0C 6D 49 
1050-- AD 3F 77AD 32 3F 3F 3F 
1058-- 3F 2796 92 92 92 D2 BB 
1060- 17172D 2D 2D 2D 1IC 1C 
1068-- IC6F 49490917 17 17 
1070= 2D:2D2D2D1ICTC1IC3EF 
1078 一 00 


四 、 窗 口 的 复制 与 裁剪 技术 

在 游戏 程序 的 图 象 中 有 很 多 图 形 往往 是 相同 的 ,它们 重 
复出 现 于 不 同 的 时 刻 和 场合 。 如 公路 两 旁 的 一 棵 棵 树 ， 战 场 
上 的 ee 它们 都 在 一 幅 图 象 中 显现 ， 若 一 棵 一 棵 树 
或 一 个 一 个 堡垒 的 去 编程 绘画 ,将 是 很 花费 时 间 的 。 一 种 有 
Eee 即 先 画 好 一 棵 树 或 一 个 堡 公 ， 
而 后 在 需要 显示 的 不 同位 置 上 复制 出 来 。 在 游戏 的 进程 中 ， 
有 时 往往 需要 对 图 形 的 某 一 部 分 进行 收 改 。 如 让 唐 老 鸭 驾 驶 
的 敞篷 车 变换 成 由 米 老鼠 在 驾驶 。 一 种 简便 的 方法 是 ,在 唐 
老 鸭 驾车 的 图 形 中 把 唐 老 鸭 的 头像 擦 去， 更换 上 米 老 鼠 的 头 
像 ， 这 就 需要 采用 “裁剪 "操作 。 

以 上 两 种 操作 都 是 对 一 幅 图 象 的 某 一 局 部 的 特定 区 域 进 
行 操 作 ,， 这 一 特定 区 域 往往 是 用 和 托 形 来 指定 的 。 通 常 我 们 把 
该 算 形 区 域 叫 做 “窗口 ”。 

下 面 是 一 个 简易 的 “窗口 "处 理 程序 。 此 程序 开始 运行 后 
首先 进行 页 面 选择 ， 可 选择 不 同 的 高 分 辩 率 页 面 进 行 操作 
也 可 在 同一 高 分 辩 率 页 面 上 操作 。 页 面 选 定 以 后 . 就 进入 
相应 的 页 面 , 并 在 左上 方 出 现 一 闪烁 的 亮点 即 “ 窗 口 " 原 
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点 。 这 里 用 荆 J K，M 四 个 键 控 制 原 点 在 屏幕 的 上 、 左 、 
下 、 右 方向 移动 ,原点 移 至 要 建立 窗口 的 目标 位 置 后 , 按 下 
RETURN 键 即 可 将 该 窗口 定位 。 此 时 可 用 II JJ, 人 ，M 四 
个 键 在 原点 处 来 改变 “窗口 "的 大 小 , 如 果 认 为 当前 的 窗口 选 
拌 已 经 合适 ， 则 只 要 按 下 RETURN 键 ， 程序 即 截取 “窗口 ” 
内 的 图 形 数据 。 依 据 需 要 ， 此 时 可 选择 四 种 不 同 的 图 形 麦 加 
逻辑 操作 ， 即 A 一 一 与 操作 ，O 一 一 或 操作 ，E 一 一 异 或 操作 
S 一 一 反 相 操作 。 此 刻 , 操纵 I. J 多，M 四 个 键 即 可 将 窗 
口内 的 图 形 截 取 下 来 进行 移动 、 秋 加 等 操作 ， 并 能 将 它 拼 接 
至 屏幕 的 任何 位 置 。 

窗口 所 截取 出 的 图 形 数据 与 屏幕 某 处 底板 上 的 图 形 进行 
上 述 四 种 方式 的 图 形 三 加 逻辑 操作 , 它 的 效果 除 S 反 相 操作 
为 原 白 点 变 为 黑 点 、 色 点 变 为 补 色 点 外 ,其余 三 种 和 琵 加 后 的 
效果 见 表 4.1。 


表 4.1 和 登 加 窗口 后 屏幕 光 点 远 辑 关系 表 


屏幕 某 处 的 点 | 与 ? 秋 加 后 的 点 


“ 异 或 ?和 伍 加 后 的 


窗口 裁剪 的 点 “或 "得 加 后 的 点 


于 


流 | 小 | 训 | 冯 


证 


例如 ,我们 有 图 4.6 和 图 4.7。 

其 中 图 4.6 是 一 幅 画 着 一 辆 赛车 的 图 画 , 图 4.7 是 一 幅 
画 着 一 只 米 老 鼠 的 图 画 。 如 果 我 们 要 让 米 老 鼠 坐 到 图 4.6 的 
赛车 上 ,， 则 可 以 通过 截取 、 反 相 、EOR、AND 等 操作 实现 
这 一 要 求 ， 从 而 得 到 图 4.8。 
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图 4.6 赛车 


图 4.7 米 老 鼠 
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图 4.8 米 老 鼠 坐 在 赛车 | 


作为 一 个 例子 .我 们 通过 反 相 操作 来 产生 一 幅 米 老 鼠 图 
案 (负片 ) 如 图 4.9 所 示 。 


图 4.9 米 老鼠 图 案 的 负片 
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LIST 


12 


20 . 00T0 580 
COTO 11 


409 
580 


590 
600 
610 
620 
630 
640 
650 
660 


670 
580 


690 
700 
710 
720 
730 
735 
740 


程序 4.4 ”窗口 处 理 程序 


11 TEXT : HOME ; INPUT “SOURCE PAGE“8 SP: .INPUT “TARG 


ET PAGE“ 5TP 
IF (SP< >1ANDSP< >2)0ORI(TP< >1ANDTP 
< > 2) THEN 11 


POKE 49232, 0: POKEF 49234, 0:; POKE 49235 二 SP,0: POKE 
49239,0:Xl = 0:Y1 = 0:S = 1:PP = SP POKE 230,32 十 
32 yy (SP -1) 

GO0SUB 5300: GO0SUB 5200: G0SUB 5300 


IF K3 = 
IF K? = 


H = 1: 


GOSUB 
IF K9 
IF K$ 


CHR3 (27) THEN 625 
CHR3 (13) THEN 630 


GOSUB 5500: GOTO 590 
X2 = Xl:Y2 = Y1 
5330:; GOSUB 5200: GOSUB 5330 


THEN 680 
GO0SUB 5500: C0TO 640 

.POKE 49235 十 TP,0: PP = TP:; POKE 230,32 + 32 yy (T 
P -~ 1):X3 = Xl:Y3 = Yl:S = 1:Xl = X2:Y1 = Y2: CALL 


H = 0: 


34334 
GOSUB 
IF K4 
IF KS$ 
IF K9 
IF K9 
IF K9$ 
IF K9 
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CHR3 (27) THEN 625 
CHR9 (13) AND XI < > X2 AND YE < Y2 


5370:; 60SUB 5200:; GO0SUB 5370 


CHR3 〈27) THEN 580 


“A”THEN L = 0: G0T0 690 
“0”THEN.L = 1: .GOTO 690 
“E”THEN L = 2: G0T0 690 
“S$”THEN L = 3: 00T0 690 


CHR9Y (6) THEN POKE 7,32 + (SP - 1) * 3 


2: CALL 33536: G0T0690 


750 IF K9 < > CHRSY (13) THEN 760 

751 IF X2 < X3 THEN  POKE 1,X2:-POKE 3,X3: GO0TO 753 

752  POKE 1，X3: POKE 3,X2 

753 IF Y2 < Y3 THEN  POKE 0,Y2: POKE 2,Y3: G0T0 755 

754 POKE 0,Y3: POEK 2,Y2 

755  POKE 4,Y1: POKE 5,X1; POKE 7,32 + (SP - 1) 32; 
POKE 8,32 + (TP - 1) # 32: POKE 770,L: CALL 3328 
0: G0T0 690 


760 H = 1: G0SUB 5500; GOTO 690 


REM PRINT THE CHARACTOR AT THE CENTRE POSTION1 
HTAB (40 - LEN (P$)) / 2: PRINT P$:FE = FRE (0) 
RETURN 

REM 

HTAB (40 - LEN (P$)() / 2: PRINT P$3: FE = FRE (0) 
RETURN 

PRINT “PRESS A KEY“$ 

REM KEY IN 

POKE  - 16368, 00: GET K$ 

RETURN 

REM POINT 

POKE 0,Y1: POKE 1)X1 


IF XL = 40 THEN  POKE 1y39 

IF Y1=192 THEN POKE 0,191 

CALL 33792 

RETURN 

REM SQUARE TI 

IF X2 < X1 THEN  POKF 1,X2: POKE 3,Xl: GOT0 5350 
POKE 1,X1i: POKE 3，X2 


IF Y2 < YL THEN  POKE 0,Y2: POKE 2,Y1: G0T0 5360 
POKE 0,Y1: POKE 2，,Y2 
CALL 34048: RETURN 
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5370 REM SQUARE2 
5380  POKE 1,Xl: POKE 0Y1:X4 = X1 十 ABS (X3 - X2) 


5390 IF X4 > 40 THEN X4 = 40 

5395  POKE 3,X4 - 

5400 Y4 = Y1 + ABS '(Y3 - Y2): IF Y4 > 192 THEN Y4 = 192 

5405 。POKE 2;Y4: CALL 34048 

5410 RETURN 

5500 REM CASE 2 

5510 IF K$ = “R”THEN S = 11 - S; RETURN 

5519 IF K$ < >“H”THEN 5550 

5520 HOME : PRINT ”PAGE “PP 和 :PS = “COMMAND TABLE“: GOSUB 
5030: GOTO 5900 

5521 P$ =“[ESC] 。 BACK ...“: GOSUB 5000 

5522 P$ = “1 CURSOR MOVE UP“: GOSUB 5000 

5523 P$ =“] CURSOR MOVE LEFT“: GOSUB 5000 

5524 P$ = “K CURSOR MOVE RIGHT“; GOSUB 5000 

5525 P$ =“M CURSOR MOVE DOWN“: GOSUB 5000 

5526 P$ = “R 。 FAST/SLOW CURSOR MOVE“: GOSUB 5000 


5527 P3 =“A AND 0 ORA“: GOSUB 5000 

5528 P$ =“E EOR $ INVERSE“: GO0SUB 5000 

5530 P3 =“[RETURN] SET GRAPHICS BLOCK“: GOSUB 5000 
5531 P3 =“ /COPY GRAPHICS BLOCK“: GOSUB 5000 


5532 P4 = ' 秆 ”RECOVER GRAPHICS“:， GOSUB 5000 

5533 P$ = “了 PRINT GRAPHICS DATA“;， GOSUB 5000 

5534 P9 =“H HELP“:; G0SUB 5000 

5535 GO0SUB 5170: POKF 49232, 0: POKE 49233 + PP,0: POKE 
49237, 0: POKE 49239,0 

5536 RETURN 

5550 IF K3 = CHR3 (16) THEN  POKE 1913,PP: PRINT D4$ 
“PR4#1” CHRS$ (13) CHRS *17) CHRS(13)DS$”PR#0“: RETURN 

5555 IF H THEN 5600 

5560 IF K9 < >“”“1I”THEN 5570 
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5561 Y1 = Y1 - S$: IFYL<0THEN Y1 = 192 
5562 RETURN 

5570 IF K4 < >“J”THEN 5580 

5571 X1 = X1 - 1: IF XL < 0 THEN Xl = 40 
5572 RETURN 

5580 IF K$ < >“K”THEN' 5590 

5581 XI1 = X1 + 1: IF X1 > 40 THEN X1 = 0 
5582 RETURN 

5590 IF K4 < >“M”THEN PRINT CHRS (7)3: RETURN 
5591 Y1 = Y1 + S: IF Y1 > 192 THEN Y1 =0 
5592 RETURN 

5600 REM CASE1 

5610 JIF K4 < >“1I”THEN 5620 

56l1 Y1 = YL - S: IFYL<0THEN Y1 = 191 
5612 ”RETURN 

5620 IF K8 < >“J”THEN 5630 

5621 X1 = Xl1 -1: IF Xi < 0 THEN X1 = 39 
5622 RETURN 

5630 IF K$ < >“K”THEN 5640 

5631 X1 = X1 + 1: IF X1 > 39 THEN Xl = 0 
5632 RETURN 

5640 IF K9 < >“M“” THEN PRINT CHR4 (7)3: RETURN 
5641 Y1 = Y1 +S: IFYL>191THEN Y1 = 0 


5642 KETURN 
5699 REM END CASE2 


5900 ” POKE 49233, 0: POKE 49236,0; HTAB 37: IF LIL = 0 THEN 
PRINT “AND” 

5910 IFL=1THEN PRINT“ORA” 

5920 IFL=2THEN PRINT “EOR: 


5930 0G0T0 5521 
注 :1) 本 程序 中 有 关 汇编 程序 部 分 由 于 篇 幅 过 长 ， 将 存放 在 本 书 附带 的 盘 片 中 。 
2) 限于 篇 幅 ， 另 一 功能 更 强 更 全 面 的 窗口 处 理 程序 清单 在 附录 B 中 给 出 。 
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开始 


输入 源 图 形 和 目标 图 形 所 在 的 页 号 


上 = = 


Ay 0 FE, S | F 5 


吕 再 说 
置 窗口 图 形 与 底板 图 形 估计 板 加 | 进行 益 加 转子 程序 
的 伍 加 关系 分 别 为 ; 
交 业 加 关 辽 分别 为 2 天 二。 

-机 
RE | | 
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5 本 
站 移动 的 


人 


返回 
图 4.10 窗口 处 理 程序 流程 图 


为 了 便于 读者 理解 程序 4.4, 我 们 给 出 图 4. 10 所 示 的 程序 
流程 图 。 


第 二 节 ”动画 技术 


在 游戏 程序 中 , 常常 要 形象 逼真 地 来 模仿 客观 物体 的 活 
动 过 程 , 特别 是 有 生命 物体 的 活动 。 动 画 是 这 类 程序 设计 的 
关键 与 难点 ,在 这 一 节 中 , 我 们 从 简单 到 复杂 , 逐步 深入 地 
向 读者 介绍 各 种 动画 技术 

所 谓 动画 技术 ， 是 指 屏幕 上 的 图 形 按照 一 定 要 求 有 规 
则 地 显示 其 变化 或 活动 的 过 程 。 我 们 将 醒 面 上 的 活动 图 象 
分 称 为 "动画 对 象 "。 动 画 显 示 就 是 对 动 夯 对 象 反复 地 进行 罗 
形变 换 操作 ,在 程序 中 使 用 各 种 方法 来 组 织 动画 页 面 ， 例 如 
先 显示 动画 对 象 ， 进行 变换 ， 然 后 隐 去 原来 的 图 形 , 再 显 
示 变 换 后 得 到 的 新 图 形 ,， 如 此 重复 进行 。 这 里 的 一 个 重要 技 
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术 问 题 是 怎样 减少 画面 的 闪烁 , 以便 得 到 一 个 连续 运动 的 、 
真实 感 很 强 的 动画 显示 过 程 。 

下 面 我 们 通过 一 系列 程序 范例 来 介绍 在 中 华 学 习 机 上 可 
实现 的 一 些 动 画 技术 。 


一 、 文 本 状态 ( 即 字 符 图 形 ) 的 动画 

一 些 简单 的 图 形 可 以 用 字符 构成 ， 称 为 字符 图 形 。 字 符 
图 形 虽 然 不 能 真实 描绘 客观 物体 的 细节 , 但 组 合 简易 ， 而 且 
在 图 形 的 移动 过 程 中 能 够 依 字符 在 文本 状态 下 的 行 与 列 的 位 
置 来 计算 ， 因 此 这 种 动画 程序 的 编制 较为 简单 。 

程序 4.$ 是 在 APPLESOFT 的 TEXT 文本 状态 下 ， 运 
用 ASCII 字符 组 成 飞机 与 大 炮 的 图 案 , 在 这 个 程序 中 ， 内 
循环 变量 H 配合 语句 HTAB H--2 实现 飞机 向 前 飞行 的 动 
画 。 外 循环 变量 V 则 是 使 飞机 不 断 降 低 飞 行 的 高 度 。 程 序 
中 规定 用 空格 键 来 发 射 炮 弹 ， 击 中 飞机 后 . 将 出 现 爆炸 的 图 
案 . 

NA 

并 旭 闪 》 


/V 


人 入 


拉 检 
拉 失 
并 樟 拉 间 
--------------- 一 ------- # 李 # 并 着 并 #- 一 -一 ~-- ~----~- 


图 4.11 炮 打 飞机 
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程序 4.$S 炮 打 飞机 


LIST 

20 TEXT : HOME 

30 VTAB 20: PRINT SPCC 19)”^” 

40 VTAB 21: PRINT SPC(C 187”## 打 #” 
50  VTAB 22: PRINT SPCC 18)7” 林 霜 打 
60  VTAB 23: PRINT SPCC 177% 和 提亲 拓 亲 亲 


100 FOR V = 1T0 15 

110 FOR H =31T035STEP 2 

120 ”GO0SUB 1500 

130 A =' PEEK ( 3 16384) --160 

140 IFA=0THEN POKE - 16368,0: GOSUB 3000 
150，GOSUB 4000 

160 NEXT H 

170  POKE 35,16: HOME 

180 NEXT V 

190 ”PRINT “YOU FAILED!”: END 

200 GOSUB 4000: NEXT H 

1000 HOME ; HTAB 17: VTAB G(I1) -~ 1: PRINT “\ 人/ 
1020 HTAB 18: VTAB G(I): PRINT “3 PRINT 
1040 HTAB 17: VTAB G(I) + 1: PRINT“/ \ 

1060 PRINT “YOU WIN!“: END 

1500 HTAB H - 2: VTAB B; PRINT ” N\Y 

1520 HTAB H - 2: VTAB V + 1: PRINT ” 间 ###>” 3 PRINT 
1540 HTAB H - 2:; VTAB V + 2: PRINT ” /人 
1560 RETURN 

3000 FOR 1 =1T02 

3020 IF G(I) = 0 THEN G(I1) = 16:RETURN 
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3060 NEXT 1 
3080 RETURN 
4000 FOR 1 = 1T02 
4020 IF GCI) THEN HTAB 20: VTAB G(I): PRINT “^ 少 3 HTAB 
20: VTAB G(I) + 1; PRINT ”“ 
4030 IF G(I) = VORGGD) =V+1THEN IF H > 19 AND 
H < 22 THEN 1000 
4040 IF-G(I) = VTHEN IFH<21ANDH>15THEN 1000 
4060 G(ID) = G(1) - 1 
4070 IF G(I) < 0 THEN G(I) = 0: HTAB 20: VTAB 1: PRINT 


9 


4080 NEXT 1 
4090 RETURN 


二 、 页 面 变换 

从 上 面 的 示范 程序 中 , 我 们 可 以 看 出 动画 对 象 的 图 形 构 
成 越 复杂 ,程序 处 理 的 速度 就 越 慢 , 图 形 的 闪烁 及 呆滞 现象 
也 会 随 之 产生 ,一 种 加 快 动画 处 理 速度 的 方法 是 使 用 多 个 页 
面 变换 显示 。 

在 中 华 学 习 机 上 ,字符 显示 和 绘画 显示 都 有 两 个 页 面 ， 
将 动画 图 形 画 在 不 同 的 页 面 上 ， 然 后 触动 屏幕 页 面 软 开 关 ， 
即 可 达到 良好 的 动画 显示 效果 。 

例如 , 我 们 在 高 分 辨 显示 的 第 一 页 画面 士 画 一 个 眼睛 睁 
开 的 唐 老 鸭 , 而 在 第 二 页 画面 上 画 一 个 眼睛 闭 着 的 唐 老 鸭 ， 
然后 用 程序 4.6 来 实现 唐 老 鸭 不 断 地 蚜 眼 (图 象 数据 存放 在 
本 书 附带 的 盘 片 中 )， 
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LIST 

5 REM set 
10  POKE 
20  POKE 
30 FOR 1 
40 POKE 
50 FOR 1 
60 GO0TO 20 


程序 4.6 - 


high resoultion graphics page 


16304， 0: 
16300, 0; 
1 TO A: 
16299， 0: 
1 TO A: 


图 4.12 


POKE “ -16297, 0: POKE 
A=80 

NEXT 1 

A=80 

NEXT 1 


人 


aaaima 


中 寺 


册 


IN 


几 


人 


-16302， 0 
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若 改变 程序 中 变量 A 的 值 . 则 可 以 使 旺 眼 睛 有 快 有 慢 
地 变化 ,其 形象 就 更 为 逼真 了 。 

程序 4.7 是 关于 飞鸟 的 示范 程序 , 它 利 用 变换 两 个 页 面 
中 同一 只 鸟 在 不 同位 置 的 飞行 图 , 构成 一 只 鸟 从 屏幕 前 飞 过 
的 客观 景象 ( 见 图 4.13)。 

这 只 飞鸟 是 由 绘画 语句 在 不 同 的 页 面 上 画 出 的 。 飞 鸟 的 
图 形 全 部 是 由 一 段 一 段 直线 段 组 成 的 。 第 400 行 的 DATA 
语句 的 数据 是 线段 端点 的 X, Y 坐标 值 。 两 个 一 维 数组 
X, Y 存放 它 的 各 瞬时 坐标 数据 值 。 绘 画 飞 鸟 时 只 需 在 循环 
语句 中 取出 每 一 段 直 线 的 端点 , 用 语句 HPLOT 来 画 线 ， 即 
可 快速 地 画 出 飞鸟 的 图 形 。 

因为 飞鸟 的 图 形 是 用 HPLOT 语句 作出 的 ， 若 仍然 使 
用 HGR 及 HGR2 在 不 同 页 面 上 来 画 飞 鸟 , 则 每 次 都 有 一 
个 清 屏 过 程 , 这 样 图 形 的 背景 将 被 清除 , 不 符合 显示 要 求 。 
若 要 在 不 清 屏 的 情形 下 , 在 不 同 的 页 面 上 绘画 , 则 可 使 用 如 


下 语句 : 
POKE 230，32 在 高 分 辩 率 第 一 页 面 画图 
POKE 230，64 在 高 分 辩 率 第 二 页 面 画 图 


“飞鸟 "程序 的 背景 画 是 一 群 山 。15 语句 至 90 语句 是 以 
随机 产生 的 一 根 根 直线 段 来 描绘 群 山 背 景 的 。100 语句 至 
130 语句 则 是 输入 一 段 机 器 语言 子 程序 , 调用 后 ， 它 能 将 画 
在 高 分 辨 率 第 二 页 画面 上 的 群 山 背景 画 复制 到 高 分 辩 率 的 第 
一 页 画面 上 去 。 
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(b) 
图 4.13 飞鸟 在 某 一 时 刻 的 两 页 图 象 


程序 4.7 飞 乌 
LIST 
15 HGR : HGR2 : HCOLOR= 3 
20 Y = 160 


30 FOR 1=17T09:AGI) =298#(RND (1) +I-1) 
40 A(9) = 279:B = NOT B -`B 

50 FOR X=A(I-1)TOAGD):Y=Y+B*## RNDCI) 
60 HCOLOR= RND (1) -3 

65 IFY>1l9l THEN END 


70 HPLOT X/ 2+ RND (1) (279 -X/ 2),191 TO X'Y+ 1 
80  HCOLOR= 3: HPLOT X)'Y 
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90 NEXT X，[ 


100 
110 


120 
130 
300 
310 
320 
325 
330 
335 
340 
345 
350 
335 
360 
365 
370 
380 
385 
390 
395 
399 
400 


FOR 1 = 768 TO0 795: READ A: POKE 1I*A; NEXT 
DATA 160, 0, 169, 0, 133, 60, 133， 66, 169, 64, 133,， 61, 169， 
95, 133, 63， 169, 255, 133, 62, 169, 32, 133，67，32， 44， 254， 


96 
CALL 768 


POKE 230,64 


F = 1.212: G0SUB 2000 


] 


] 


] 


HCOLOR= 3 
= 100 
FOR 1 = 240 TO 40 STEP - 10 
= 了 -3 
POKE 230,32: HCOLOR= 3: GOSUB 1000: POKE - 16300,0 
POKE 230,64: H' JR= 0: GOSUB 1000 
POKE 230,64: HCOLOR= 3 
=TI-~-10:J]=J 了 -3 
GOSUB 1000 
POKE  - 16299,0 
POKE 230,32: HCOLOR= 0 


= +10:J 了 =j+3: GOSUB 1000 
NEXT 1 
HCOLOR= 0:1I = 50:] = ] - 3: G0SUB 1000 
POKE 230,64 
HCOLOR= 0:I = 30: GO0SUB 1000 
GO0TO 320 


DATA -3,7,10, 24, 30, 16, 13，18, 4 0, 14， -6， 6, -13, 0， 


-4 -14, -13，-22,， -39, -20, -7,，-7，3, -11, 7，-12,9, -11, 10， 
-9， 10， -3， 7 


1000 REM DRAW A BIRD 
1005 HPLOT I + X(C0)，J +Y(CO) 


1010 FORK= 17T016 


102 


1015 HPLOT TO I +XGK)，J +YGK) 
1020 NEXT 攻 

1025 REUTNR 

2000 REM READ BIRD FICURE DATA 
2005 DIM X(C16),Y(16) 

2010 FOR 1 =07T016 

2015 READ XCI))Y(CI) 

2020 Y(I) = -YGCI) /下 

2025 NEXT 1 

2030 RETURN 


三 、 动 态 背景 

在 一 幅 画 面 上 若 有 较 多 的 动画 对 象 , 或 动画 对 象 的 构图 
线条 增加 , 那么 将 降低 动画 形成 的 速度 。 有 时 因 程 序 太 复杂 
而 增加 了 计算 时 间 , 造成 动态 显示 一 幅 图 象 过 程 的 时 间 拖 延 
得 太 久 ,从 而 失去 动画 效果 。 我 们 要 加 快 动态 显示 的 速度 ， 
就 必须 简化 图 象 ,减少 所 画 的 线条 或 者 只 模拟 比较 简单 的 、 


吕 


TH 


站 


| 
图 4.14 赛车 的 动态 背景 图 


重复 的 动作 。 这 里 介绍 另 一 种 有 效 的 方法 ， 即 通过 移动 背景 
来 造成 动画 对 象 在 运动 的 感觉 。 

图 4.14 是 赛车 游戏 程序 中 的 一 个 画面 ,通过 道路 中 心 
线 及 道路 两 旁边 界线 的 后 移 造成 赛车 向 前 行驶 的 感觉 。 

程序 4.8 是 构成 赛车 动态 背景 的 示范 程序 。 语 句 CALL 
768 调用 机 器 语言 子 程序 “^FLASH.OBJ”， 该 子 程序 快速 变 
换 高 分 辩 率 的 两 个 页 面 ， 其 中 $00 地 址 存放 延 时 值 并 调用 监 ， 
控 $FCA8 延 时 子 程序 。 改变 BASIC 程序 的 第 $ 语句 
 S=150 的 值 , 即 可 达到 变换 速度 的 目的 。 

在 某 些 程序 中 背景 移动 时 必须 通过 屏幕 上 已 有 一 些 物体 
这 将 造成 一 些 线段 被 擦 去 的 情况 ， 这 时 应 分 别 背景 与 物体 
的 前 后 关系 , 在 程序 中 对 显示 效果 进行 修改 ,使 得 在 动态 显 
示 的 过 程 中 ,只 画 出 背景 的 重 和 至 部 分 或 者 只 画 出 物体 的 重 笃 
部 分 。 其 正确 的 显示 效果 如 图 4.15 所 示 。 


| 风 则 
上 | FEEDT 
吕 伍 注 芝 而” 
| MIZIELES 
二 Earl 
1 二 
| 1ST 
il 
4 引 
] 
4.15 
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程序 4.8 ”赛车 


LIST 

5 S$ = 150 

10 D4 = CHR3 (4) 

20 PRINT D3$“BLOAD PIC” 


30 PRINT D$"BLOAD PIC2” 
40 PRINT DS$”"BRUN FLASH.OBJ” 


50 POKE 0,S 
60 FOR ] = 1 TO 20:; CALL 768 
70 NEXT ; G0T0 50 

FLASH.OBJ 机 器 语言 子 程序 : 


0300- AD 50 C0 LDA 3$c050 
0303- AD 57 C0 LDA 3C057 
0306- ”AD 52 C0 LDA 3C052 
0309- ”AD 54 C0 LDA 3C054 
030C-  A5 00 LDA 300 
030E- ”20 A8 FC JSR SFCA8 
0311- ”AD 55 C0 LDA 3c055 
0314- ” A5 00 LDA 300 
0316- ”20 A8 FC JSR 3FCA8 
0319- “60 RTS 


注 : 赛 车 程序 中 的 两 幅 图 象 ， 分 别 以 “PIC "及 "PIC2 "为 文件 名 ,存放 在 此 书 
.附带 的 盘 片 中 ， 


四 、 预 移 图 序 法 

对 于 动画 电影 我 们 知道 (例如 电影 中 孙悟空 挥舞 金 籍 棒 
的 动作 ) 是 由 一 幅 幅 分 解 动作 的 图 画 连续 高 速 放 映 后 造成 
的 。 若 将 游戏 程序 中 的 动画 活动 过 程 的 每 一 瞬间 变化 的 图 象 
预先 画 好 ， 然 后 快速 按 顺 序 显 示 出 来 , 即 可 达到 动画 的 效果 ， 
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这 种 方法 即 为 预 移 图 序 法 。 在 中 华 学习 机 的 高 分 辩 率 显示 
的 图 形 中 , 屏幕 上 任 一 行 的 第 7K 至 第 7K+6(=0，1，2，3， 
…，39) 的 7 个 点 ,用 内 存 中 的 一 个 字 节 (Byte) 来 表示 。 若 要 
画 一 架 机 愤 在 转动 ,并 向 前 飞行 的 直 升 飞 机 ,， 按 直 升 飞机 的 
图 示 要 求 ， 事 先 要 画 7 幅 宽 15 个 点 、 长 42 个 点 的 不 同 瞬 时 
状态 的 直 升 飞机 , 在 每 幅 图 中 , 旋转 机 翼 长 度 及 方向 均 在 变 
化 。7 幅 图 的 各 自 特征 如 图 4.16 所 示 。 


图 4.16 直 升 飞 机 的 预 移 图 
下 面 介绍 的 预 移 图 序 表 生 成 及 演示 程序 ,可 以 方便 地 操 
纵 工 二 民 ，M 四 个 键 ,移动 光 点 在 屏幕 上 绘画 并 生成 预 移 
图 序 表 , 然后 按 下 A 键 , 即 可 演示 动画 的 效果 。 这 也 是 一 个 
简易 有 效 的 工具 程序 。 程 序 运行 时 的 屏幕 显示 如 图 4.17 所 


不 。 : 


IJFM>2xowHEOA1-7D 
HEIT OFF 内 LL 


图 4.17 项 移 图 序 表 生成 及 演示 程序 屏幕 显示 
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下 面 说 明 关 于 图 形 预 移动 程序 的 使 用 。 
如 果 要 设计 一 系列 连续 动作 的 动画 分 解 图 形 , 可 使 用 本 
程序 。 程 序 运 行 后 ， 键 盘 功 能 分 外 如 上: 


键 的 名 称 功能 
画笔 位 移 方向 设置 
I JJ K，M 画笔 分 别 向 上 , 左 ,下 , 右 移动 


画笔 状态 设置 命令 
乙 画 一 点 ,并 进入 提 笔 状态 
HH 图 序 字 节 的 最 高 位 加 1 
Q 落笔 并 进入 连续 画 点 状态 
W 落笔 并 进入 连续 清除 状态 


A 置 图 形 所 有 点 为 可 画 
E 置 图 形 所 有 偶数 点 为 可 画 点 
O 置 图 形 所 有 奇数 点 为 可 画 点 
1 一 7 根据 状态 给 对 应 图 序号 指 

定 的 图 形 作画 (或 不 作画 ) 
D 进入 ECASLN 状态 (后 处 理 阶 段 ) 


使 用 预 移 图 序 表 生 成 及 演示 程序 ( 见 程序 4.9)、 将 直 升 飞 
机 飞行 的 预 移 图 四 好 ， 并 编译 成 预 移 网 序数 据 后 ， 以 “HEL- 
ICOPTER 为 文件 名 0 存盘 .程序 4.10 就 是 一 个 直 升 飞机 飞 
行 的 范例 程序 .其 中 *DRAW 汇编 子 程序 的 作用 是 将 预 移 图 
形 按 指定 的 X, Y 屏幕 坐标 位 置 显示 相应 的 动画 画面 :而 
“TABLO.HL 是 它 在 癌 分 状 率 房 幕 上 各 点 位 置 的 一 个 地 址 
表 . 这 两 个 了 程序 都 存放 在 本 蔬 附 带 的 盘 片 中 . 
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程序 4.9 预 移 图 序 表 生 成 及 演示 


LIST 
60 HGR 
99 PRINT CHR$ (4)“BLOAD GAME.OBJ“: PRINT CHR$ (4) 
“BLOAD TAB 
105 ROT= 0: SCALE= '1; FOR 1 = 768 TO 773: READ V: POKE 
1)V; NEXT :; POKE 232,0: POKE 233,3: DATA 1, 0, 4) 0， 
4 0 
110 DIM MD%(6)，LA%(55),XS%(6) 
120 FOR I = 07T0O6:MD%Y(I) = 1 READ XS%(CI): NEXT : FOR 
II=07T055:Y= INT (LIV/8):LA%(I) = 8320 +Y 了 站 
128 + (1 -YY 8) # 1024: NEXT 
130 DATA 7,79, 151, 223, 43, 115， 187 
140 FR = FRE (0): GOSUB 1000:CM = 0:SS = 1:XC = 3:YC 
= 3: GO0SUB 1200 
145 CS = 3:HB = 0: HOME : VTAB 21;: PRINT “1 JKMZX 
QWHEOAI1-7D“: PRINT “HVIT OFF ALL7 
150 IF PEEK(〈( - 16384) < 128 THEN GOSUB 1100: GOT0 
150 
160 GET A$: IF AS =“I”AND YC > 0 THEN YC = YC -1: 
GOTO 280 
165 IF A4$ =“M“ AND YC < 55 THEN YC = YC + 1: G0T0 280 
170 IF AS$ =“]J”AND XC > 0 THEN XC = XC - 1: GOTO 280 
175 IF A$ = “K 


”AND XC < 49 THEN XC = XC + 1;: G0T0 280 


180 IF A8 =“2”THEN SS 

185 IF A8 =“X“ THEN SS 

186 IF A8 < >“H" THEN 200 

190 HB = 4- HB: VTAB 22: HTAB 1: IF HB = 0 THEN PRINT 
“HBIT OFF“: GOTO 150 


1: GO0T0O 282 
1: G0T0 284 


108 


195 
200 


205 
210 
215 


220 


225 


230 
235 


240 
245 
246 
247 
248 
249 


250 
254 
255 


258 
260 


PRINT “HBIT ON “: GOT0O 150 

IF A3 > “0”AND A$ <“8”THEN MD%(C VAL (A3$) - 1) 
= 1 -MD%Y(YVAL (A$) - 1): GOSUB 1000: GOTO 150 

IF A$ =“Q”THEN SS = 2: GOT0O 282 

IF A$ =“W“ THEN SS = 3:; GO0TO 284 

IF A$ =“A”THEN CS VTAB 22: HTAB 13: PRINT 
“ALL “: G0T0 150 

IF A$ =“E”THEN CS 
“EVEN“: GO0TO 150 

IF A$ = “0“″”THEN CS 
“0DD “: GOT0 150 

IF A$ < >“D”″”THEN 150 

VTAB 23 ; HTAB 1: PRINT “E CASLN:”GET Ay; 
PRINT A$: IF A$ =“E”THEN GOSUB 1300: GOTO 145 

IF A$ =“C”THEN GOSUB 2000:CM = 1: GOTO 235 

IF A$ < >“S”THEN 250 

IF NOT CM THEN 235 

GOSUB 1300: INPUT “NAME: “AS$: ONERR “GOTO 249 

PRINT CHR$ 〈4)3“BSAVE“5 AS$5“.SSH, AS$5300,L“5SL: POKE 
GOSUB 1300: PRINT “DISK ERROR.“: GET AS$: POKE 21 
6, 0: GO0T0 235 

IF A$ < > “L”THEN 260 

GOSUB 1300: INPUT “NAME: “3 A$: ONERR “GOTO 249 

PRINT CHRS 〈4)8“BLOAD“3A$5“.SSH,A$5300,“: POKE 
3, 0: POKE 4,0: POKE 216,0: HGR : GOSUB 1000: CM = 
0: POKE 2,8: FOR 1] = 0 T0 3: GOSUB 258: NEXT : POKE 
2,72: FOR 1 = 4 TO 6: GO0SUB 258: NEXT ; GO0T0 235 
POKE 4,XS%(I): CALL 7943: RETURN 

IF A$ < >“A”THEN 270 


1 
se 


1 


VTAB 22: HTAB 138 PRINT 


1: VTAB 22: HTAB 13: PRINT 
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261 POKE - 16302,0: POKE 2,160: POKE 4,10: CALL 7943 


262 CALL 7936: IF PEEK ( - 16384) < 128 THEN FOR 1 
= 1 T0 40: NEXT : GOTO 262 

264 CALL 7943: POKE  - 16301,0: GOTO 236 

270 IF AS$ =“N“″ THEN GOSUB 350; IF 1 THEN PRINT “R 
UNSHAPEEDIT,” 

276 GO0T0 235 

280 ”GOSUB 1200: ON SS GOTO 150,282,284 

282 HCOLOR= HB + CS: GOSUB 1150: GOTO 150 

284 HCOLOR= HB: GOSUB 1150: GOTO 150 

350 PRINT “LOSE CURRENT SHAPE?“: GET K$: PRINT ; HOME 
:1 = (AS =“Y“): RETURN 

1000 FOR 1=0TO6:Y-=(I>3)#64+3: HCOLOR= 4 二 
MD%Y(CI): HPLOT XS%(CI)，Y TO XS%(CI) + 49,Y 

1001 NEXT : RETURN 

1100 FOR J = 1T02: FOR IT=0T06: IF MD%YCI) THEN 
X = XS%WCI) + XCY = (1 > 3) 64 + 8 + YC: XDRAW 
1 AT X,Y 

1101 NEXT : NEXT : RETURN 

1150 FOR TI = 0T0O6: IF MD%YCI) THEN X = XS%(I) + XC: 
Y=(I>3)*#64+8+YC: HPLOT XiY 

1151 NEXT :; RETURN 

1199 REM ， PRINT LOC。 

1200  VTAB 22: HTAB 20: PRINT“X:“5XC + 138”Y: “3YC 十 
13” “:， RETURN 

1300  VTAB 23: HTAB 1 CALL - 958: VTAB 23: HTAB 1; RETURN 

2000 GO0SUB 1300: INPUT “WIDTH: “3W: IF W< 1ORW> 50 
0 THEN 2000 

2002 ”GOSUB 1300: INPUT “HEIGHT:“3H: IF H <1ORH> 
55 THEN 2002 
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2004 GO0SUB 1300:BY = INT ((W# 12) / 7):LIN = BY 9H 
:， PRINT “WIDTH: “BY ”BYTES，HEIGHT: “H: PRINT “S 
HAPE LENGTH: “LB:; IF LN > 256-THEN PRINT “TOO LO 
NG (256 MAX) .“; GET A$: .GOSUB 1300: RETURN 

2006 FLASH ， PRINT “COMPiLING“:。 NORMAL 

2010 BY = INT ((W+12) /7):LN = BY H:L = 21248: FOR 
1 -0T0O6:OF =16+1#LN: POKE L，INT (OF /25 
6); POKE 民 + 1)0OF = PEEK (L) ,+ 256:L = 二 2; NEXT 
:; POKE LBY: POKE L + 1lHL=L+2 

2020 FOR 1 = 07T06 

2025 FOR J =0TOH-lY=LAOD +(G- INC V/ 
2) # 2) ， 40 

2030 SB =-Y+I#5+1: FORK=SBTOSB+BY -1: POKE 
L，PEEK(K);L = 工 + 1; NEXT : NEXT ; NEXT :SL = L 
N 上 7 + 16: GOSUB 1300: RETURN 


BLOAD GAME.0Bj 
CALL -~151 


1F00.1F7E 


1F00- 20 OF 1F A5 FD 85 04 20 
1F08- OF 1lF E6 FD E6 FD 60 AO 
1F10- 00 A5 04 18 C9 07 90 08 
1F18- 38 FE9 07 C8 18 4C 14 IF 
1F20- 85 01 84 00 A5 02 85 0C 
1F22- 84 00 A5 02 85 0C A0 0E 
1F28- A0 0OE B9 00 53 85 08 5C8 
1F30- B9 00 53 85 09 A5 01 0A 
1F38- A8 B9 00 53 AA [0C8 B9 00 
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1F40- 53 18 69 00 8D 6E 1F 8A 
1F48- 69 53 8D 6F 1lF A2 00 A5 
1F50- 08 85 03 A4 0C 5C0 C0 90 
1F58- 04 A0 29 B0 0C B9 5C0 51 
1F60- 85 06 B9 00 51 85 07 A4 
1F68- 00 5C0 24 B0 05 BD 1D 55 
1F70- 91 06 E8 C8 5C6 03 DO Fl 
1F78- E6 0C 5C6 09 D0 D1 60 


程序 4.10 。 直 升 飞机 飞行 


LIST 

5 HGOR 

10 D$=CHR3(4) 

20 PRINT D3 “BLOADDRAW” 

30 PRINT D$ “BLOADTABLO.HIyA?6000” 
40 PRINT D$ “BLOADHELICOPTER.SSH,A?6200” 
50 C=24960:Y=10: POKE 25047, 36 

60 FOR X=0 T0255 STEP 2 

70 POKE 4,X;POKE 2yY; CALL C 

80 NEXT 久 

90 G0T0 60 


上 而 我 们 用 流程 岁 米 说 明 程 序 4.9 的 这 计 思 想 ， 


112 


开始 


化 程序 
分 辨 率 图 形 


屏幕 显示 提示 文本 


初始 
并 进入 高 


2 AR N 
和 2 键盘 输入 为 2, HT 
| 一 wa,E,0D,1-7? -一 


一 一 一 -本 和 位 置 对 应 好 上 、 左 、 下 、 右 和 动 要 
-一世 
人 
一 一 的 有 tm | 
| 
[TYTTTTT TI 
一 尖 和 并 直入 连续 清除 状态 | | 


| 


| 一 一 置 图 形 所 有 点 为 可 画 A 上 -一 一 
| | 
-一 一 于 置 图 形 所 有 偶数 点 为 可 画 点 E | 一 | 


| 
Eee 一 | 置 图 形 所 有 奇数 点 为 可 画 点 0 
| 
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子 程序 FCASLN ““〈 后 处 理 阶 段 ) 


读 取 预 移 图 序数 据 上 


清除 当前 图 形 ， 并 重新 设置 绘图 N 
状态 


图 4.18 项 移 图 程序 枉 图 


第 三 节 ”键盘 与 游戏 杆 的 操作 控制 


中 华 学 习 机 上 运行 的 游戏 程序 与 游戏 者 沟通 对 话 的 通道 
是 键盘 与 游戏 杆 。 这 一 节 介 绍 在 游戏 程序 中 如 何 对 键盘 汪 洲 
戏 杆 进行 操作 控制 。 
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一 、 键 盘 

BASIC 语言 中 的 INPUT.、GET 等 语句 能 让 电脑 等 待 
泵 按键 输入 。 在 中 华 学 习 机 上 另外 有 一 种 方法 也 可 以 按键 输 
入 , 伸 不 雷电 脑 等 待 , 这 在 游戏 程序 中 是 最 党 用 的 。 

中 华 尝 习 机 内 存 地 址 $C000(=-16384) 存 放 键 盘 输 入 的 
数据 . 它 的 最 六 位 为 * 卫 表明 已 有 键 按 过 . 剩 下 的 七 位 吕 是 
另 设 地 址 $ CO010(-16368) 
为 清除 键盘 输入 选 通 脉 冲 ， 读 或 吨 $ C010, 使 键盘 输入 $ 
C000 中 的 最 疯 你 清 专 ， 以 便 ] 的 下 一 次 按键 输入 。 

在 BASIC 语言 编程 时 , 熙 用 A=PEEK(-16384)， 则 除 
该 取 所 按键 数码 全 要 量 A 外 , 偿 需 将 0 送 入 清 键盘 选 通 单 
邢 $C010(-16368) 中 ， 家 配合 使 用 如 下 两 个 语句 

1A=PEEK( 一 10384) 一 128 
2POKE 一 16368、0 

其 中 A=PEEK(-16384)-128 是 为 了 去 掉 键 盘 数 据 字 节 
最 高 位 的 “17"、 得 到 ASCII 码 的 十 进 制 数 。 

下 面 是 利用 键盘 上 的 右 、 左 箭头 键 控制 一 架 旋 翼 转 动 着 
的 直 升 飞机 前 进 、 后 退 的 BASIC 程序 。 其 动画 是 前 一 节 中 
用 预 移 图 序 法 制作 的 。 程 序 4.11 是 按 一 下 右 或 左 箭头 键 ， 
飞 机 前 进 或 后 退 一 步 的 单 步 控制 。 而 程序 4.12 则 是 按 下 右 
或 左 箭头 键 后 ， 飞 机 保持 连续 的 前 进 或 后 退 的 状态 ， 直 至 下 

一 次 按 另 一 键 时 ,， 才 改变 活动 状态 。 这 两 个 程序 在 按 下 除 
右 、 左 箭头 键 以 外 的 任意 键 时 即 会 使 直 升 飞机 停留 在 空中 


程序 中 零 页 地 址 $04 及 $02 为 图 形 起 始点 的 X 及 Y 
.坐标 值 。 
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程序 4.11 


LIST 

5 HGR 

10 D3 = CHR4 (4) 

20 PRINT D3“BLOAD DRAW” 

30 PRINT D3“BLOAD TABLO.HI,A$6000” 

40 PRINT D3“BLOAD HELICOPTER.SSH,A$6200” 
50 C = 24960:X = 139:Y = 10 


60 A = PEFEK(〈 - 16384) - 128 
70 IFA=8THENX=X- 2 
75 IFX<0OTHEN X= 255 

80 IFA=21THENX=X+2 


85 IFX>255THNX=0 
100  POKE 4,X: POKE 2 Y 
110 CALL C 

120 COTO 60 


程序 4.12 
LIST 
5 HGR 
10 D$ = CHR4 (4) 
20 PRINT D$7BLOAD DRAW” 
30 PRINT D$"BLOAD TABLO.HI,A$6000” 
40 PRINT D$"“BLOAD HELICOPTER.SSH,A$6200” 
50 C = 24960:X = 139:Y = 10 
60 A = PEEK ( - 16384) - 128 
70 IFA=8THNX=X-2 
75 IFX<0OTHEN X = 255 
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80 IFA=21THENX=X+2 
85 IF X>255 THEN X= 0 
100  POKE 4，X; 


110 CALL (C 
120 6G0T0 60 


POKE 2，Y 


与 程序 4.12 对 应 的 机 器 语言 子 程序 如 下 : 


0300: 
0004; 
0300: 


0300: AD 00 C0 


0303: C9 
0305:F0 
0307;: C9 
0309: 下 0 
030B: 4C 
030FE: A5 
0310: CD 
0313: 90 
0315: F0 
0317: C6 
0319: C6 
031B;: 4C 
031E: A5 
0320: CD 
0323: B0 
0325:F0 
0327:E6 
0329:E6 


88 
07 
95 
13 
2B 
04 
2C 
16 
14 
04 
04 
2B 


03 


03 


03 


03 


四 四 办 隐 四 和 外 日 于 


一 
己 


11 


NB 已 民 开 网 
NBmDoomonNwogun ww 


SCX 


ORG 
EQU 


3300 
34 


站 =================================== 一 站 


READKEY 


KEYDEC 


KEYINC 


LDA 
CMP 
BEQ 
CMP 
BEQ 
]JMP 
LDA 
CMP 
BCC 
BEQ 
DEC 
DEC 
JMP 
LDA 
CMP 
BCS 
BEQ 
INC 
INC 


$cooo 3 读 键 盘 输入 
4388 ”3 是“ 熏 键 吗 ? 
KEYDEC 

4395 “是 人 一“ 键 吗 ? 
KEYINC 

ENDREADKEY 

SCX 

LEFTEDCE ;左边 界 吗 ? 
ENDREADKEY 
ENDREADKEY 

SC 3X 坐 标 减 
SCX 

ENDREADKEY 

SCX 

RIGHTEDCE ; 右边 界 吗 ? 
ENDREADKEY 
ENDREADKEY 


3 5X 坐 标 加 
SCX 


7 


032B: 60 
032C:; 00 
032D: FE 
032FE: 


23 ENDREADKEY RTS 


24 LEFTEDGOE DFB 0 
25 RIGHTEDGE DFB 254 
26 站 =================================== 站 


以 KEY.OBJ0 为 文件 名 存放 上 面 的 机 器 语言 子 程序 ， 
在 BASIC 程序 中 可 以 调用 如 下 : 


LIST 


5  HOR 
10 D3 = CHR3(4) 


20 


PRINT,D3“BLOAD DRAW“ 

PRINT D3“BLOAD KEY.OBJO” 

PRINT D3“BLOAD TABLO.LHI7 

PRINT D3“BLOAD HELICOPTER.SSH,A36200” 
POKE 4 139 

POIKE 2,10: CALL 768 

CALL 24960 

G0T0 60 


二 、 游 戏 杆 

中 华 学 习 机 上 设 有 游戏 接口 , 连接 上 游戏 杆 后 ， 即 可 操 
纵 宇 审 飞 船 在 星空 中 人 迫 击 ， 操 纵 赛 车 在 高 速 公 路 上 奔 怨 ,使 
游戏 过 程 的 交互 作用 更 为 简洁 ， 且 更 易于 掌握 游戏 进程 。 

游戏 杆 上 一 般 都 有 两 个 游戏 按钮 和 一 根 游戏 摇 杆 ， 可 以 
上 下 及 左右 摇动 ,下 面 分 别 进行 介绍 。 

1. 游戏 按钮 (Game Switches) 
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两 个 游戏 按钮 称 为 SW0 与 SW1， 其 地 址 为 : 
SW0 一 一 4 C061 (-16287) 
SW1 一 一 4$C062 (-16286) 
连接 方式 如 图 4.19 所 示 , 未 按 下 按钮 时 ，SW0 以 S5609 
的 电阻 接地 , 成 为 低 电 位 ”0 7" 状态。 这 时 程序 奋 询 C061 时 ， 
其 最 高 位 为 “0"。 而 当 按 钮 被 按 下 时 ，SW0 接 到 +SV。 此 时 
查询 C061 时 ,其 最 高 位 变 为 “17( 即 大 于 127)。SW1 亦 如 


此 ， 
19 ”1 


3SW0 


泪 戏 授 九 


5000 


图 4.19 游戏 按钮 的 连接 电路 图 


2. 游戏 播 杆 (Game Paddles) 

在 一 根 游 戏 摇 杆 内 ， 其 上 、 下 及 左 、 右 操纵 方向 上 都 各 
接 有 一 只 150kg@Q 的 可 变 电 阻 吉 , 连接 至 两 个 模拟 量 的 输入 
端 ， 称 为 PDL0 及 PDL1， 其 地 址 为 : 

PDLI0 一 一 $C064 (-16284) 
PDLI 一 一 3%C065 (-16283) 
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当 把 游戏 杆 接 人 电脑 后 ， 游 戏 播 杆 内 的 130kQ 可 变 电 
阻 便 与 中 华 学 习 机 内 的 一 个 0.022UEF 的 电容 器 并 联 成 RC 电 
路 , 通常 这 个 RC 电路 是 被 +SV 的 电压 充电 成 为 高 电位 "1 
状态 ,如 果 我 们 去 触发 访问 $C070(PTRIG) 这 个 地 址 ， 则 
RC 电路 放电 为 低 电 位 *0 "状态 ,计算 出 它 恢复 到 高 电位 ”1 
所 化 费 的 时 间 ,， 这 个 值 便 是 模拟 量 的 值 , 它 与 R 电阻 值 ( 邯 
摇 杆 的 位 壮 ) 成 正比 , 因为 此 时 C 是 固定 不 变 的 。 其 连接 方 
式 如 图 4.20 所 泵 。 


PDL0 450K 


十 5 


图 4.20 游戏 揉 征 的 连接 电路 图 


下 面 是 App1le 监控 程序 中 摇 杆 读 取 的 子 程序 ,其 人 口 
地 址 为 $ FB1E。 

用 APPLE SOFTBASIC 语句 PDL(CX) 亦 可 在 程序 中 读 
得 游戏 摇 杆 的 值 ， 

用 游戏 摇 杆 控制 直 升 飞机 前 进 、 后 退 的 BASIC 程序 见 
程序 4.13。 


程序 4.13 
LIST 


5 HOCR 
10 D3 = CHR$ (4) 
20 PRINT D3“BLOAD DRAW” 


120 


30 PRINT D3“BLOAD TABLO.HI” 
40 PRINT D$“BLOAD HELICOPTER.SSH,A36200” 
50 C = 24960:X = 139:Y = 10 


60A= PDL (0) 


70 IFA<XTHEN 信 


X -2 


75 IFX<0OTHENX=0 


80 IFA>XTHNEX 


上 
2 
十 
MD 


85 IF X> 255 THEN X = 255 


100  POKE 4，X; 
110 CALL C 
120 60T0 60 


POKE 2 Y 


与 程序 4.13 对 应 的 机 器 语言 子 程序 “PDL.OBJ0" 及 其 
被 BASIC 程序 调用 的 示范 程序 如 下 : 


0300: 

0004; 

0300: 

0300: A2. 00 
0302: 20 1E FB 


0305: C4 04 
0307:F0O 1B 


0309; 90 0E 


030B: A5 04 
030D: CD 26 03 


0310: BO 12 
0312:E6 04 


1 ORG $300 

2 SCX EQU 34 

3 -====================================# 
4 READPDL LDX #0 ;第 o 号 遥 杆 
5 JSR SFB1E 

读 取 PDL(0) 的 值 

6 CPY SCX 

7 BEQ ENDREADPDL 

; 遥 杆 值 与 当前 X 坐 标 相符 

8 BCC PDLDEC 

y 遥 杆 值 比 当前 X 坐 标 值 小 

9 LDA SCX 

10 CMP RIGHTEDGE 
是否 超 出 右边 界 ? 

11 BCS ENDREADPDL 

12 INC SCX “3 X 坐 标 增加 
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0314: E6 
0316: 4C 
0319: A5 
031B: CD 


031E;: 90 
0320: C6 
0322: C6 
0324: 60 
0325: 

0325: 00 
0326: FE 
0327: 


LIST 
5 HGR 
10 D4 = 


04 13 INC 
24 03 14 JMP 
04 15 PDLDEC LDA 
25 03 16 CMP 
; 是 否 超出 左边 界 ? 
04 17 BCC 
04 18 DEC 
04 19 DEC 
20 ENDREADPDL RTS 
21 
22 LEFTEDGE DFB 
23 RICHTEDGOE DFB 
24 站 ====== 一 = 一 一 一 一 一 一 一 一 二 
CHR3 〈4) 


20 PRINT D37BLOAD DRAW” 


25 PRINT D$“BLOAD PDL.0BJO” 
30 了 PRINT D3“BLOAD TABLO.HI” 


SCX 
ENDRFEADPDL 
SCX 
LEFTEDOE 


ENDREADPDL 
SCX “3 X 坐 标 减 小 
SCX 


二 二 = 二 = 二 ============ 二 = 站 


40 PRINT D3"BLOAD HELICOPTER.SSH,A$6200” 


50  POKE 4 139 
60  POKE 2，10: 
70 CALL 24960 


80 6G0T0 60 


CALL 768 


第 四 节 


音乐 和 声响 模拟 


游戏 程序 中 的 音响 为 游戏 增添 了 气氛 和 情趣 。 试 想 * 星 
球 大 战 ? 中 若 没有 “ 咱 咱 ”的 炮击 声 ,“ 赛 车 "中 若 没 有 “ 鸣 鸣 ! 
的 汽车 飞驰 声 ,“ 唐 老 鸭 历险 记 " 中 若 没有 “* 啊 哦 "的 叫 声 ，… 
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…， 其 游戏 的 吸引 力 就 会 过 色 得 多 。 
在 这 一 节 中 , 我 们 介绍 游戏 程序 音响 效果 的 制作 方法 。 


一 、 音 乐子 程序 

中 华 学 习 机 内 有 一 个 小 喇叭 ,使 用 地 址 $ C030 (49200)。 
当 对 该 地 址 进行 读 或 写 时 ,就 会 产生 一 脉冲 信号 ， 使 喇叭 发 
出 响声 。 若 用 BASIC 发 声 ， 可 使 用 如 下 程序 : 


10 FOR 1 =17T0 100 
20 A = PEFEK (49200) 
30 NEXT 【 


由 于 BASIC 程序 运行 的 速度 较 慢 ,所 以 只 能 发 出 频率 
较 低 的 声音 。 在 APPLESOFT BASIC 中 只 能 达到 72Hz 的 
最 高 频率 。 而 INTEGER BASIC 中 也 只 有 256Hz 的 最 高 频 
率 。 要 发 出 更 高 频率 的 声音 ， 就 得 使 用 机 器 语言 子 程序 了 。 

程序 4.14 就 是 用 机 器 语言 编制 的 音乐 子 程序 , 子 程序 
的 起 始 地 址 为 $ 302(770)。 地 址 $300(768) 的 数值 控制 发 声 
频率 的 高 低 即 为 音阶 , 地 址 $ 301(769) 的 数值 控制 发 音 时 间 
的 长 短 。 整 个 程序 是 一 个 循环 过 程 , 待 $ 301(769) 内 的 数值 
减 至 0 时 ， 退 出 循环 。 


程序 4.14 “MUSIC-SUB” 的 音乐 子 程序 


0302- ”AD 30 C0 LDA 3C030 
0305- ”88 DEY 
0306- “”D0 05 BNE 3030D 
0308- CE 01 03 DEC 30301 
030B- “”FO 09 BEQ 30306 
030D- ”CA DEX 
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030E- ”DO0 F5 BNE 30305 


0310-  AE 00 03 LDX 4$0300 

0313- 4C 02 03 JMP 40302 

0316- ”60 RTS 

音乐 与 节拍 的 控制 值 如 表 4.2 和 4.3 所 示 。 
表 4.2 表 4.3 

节拍 (四 分 音符 为 一 拍 ) | ($301) 值 
十 六 分 30 
八 分 70 
八 分 附 点 110 
四 分 160 
四 分 附 点 255 


例如 程序 4.15 是 音乐 1311I$61535.| 上 用 BASIC 语言 
制 的 示范 程序 
程序 4.15 
LI139 
110 DATA 192, 160, 152, 70, 192, 70, 128, 160, 114， 160, 128, 70, 128， 
255, -1，, -1 
120 PRINT CHR$ (4)3“BLOAD MUSIC-SUB” 
130 READ IJ 
140 IFI>= -1 THEN END 
150  POKE 768, 1:; POKFE 769, ] 
160 CALL 770 
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170 6G0T0 130 


二 、 音 响 效果 

有 了 上 述 音 乐 程序 的 知识 ， 再 来 模拟 游戏 程序 中 所 需 的 
各 种 音响 就 不 难 了 。 

在 游戏 程序 中 ， 如 果 象 前 面 程序 4.15 这 样 读 一 组 数 再 
发 声 ,， 则 会 使 动画 的 画面 动作 产生 暂时 的 停顿 ,这 是 因为 中 
华 学 习 机 的 CPU 在 每 一 瞬间 只 能 处 理 一 件 事 。 因 此 , 我 们 
必须 将 产生 声音 的 子 程序 做 得 足够 快 , 但 这 只 能 由 机 器 语言 
来 处 理 。 下 面 的 机 器 语言 子 程序 是 串 接 在 游戏 主 程序 中 的 ， 
其 执行 的 结果 既 使 动画 效果 不 受 影响 , 义 能 伴随 着 动作 发 声 
而 且 改变 LDY 立即 数 的 值 即 可 改变 音响 。 


0300: 1 ORG $300 
0300: A0 09 2 LDY 4#S309 
0302: AD 30 C0 3 SOUNDO LDA $co30 
0305: 88 4 DEY 

0306:D0 F9 5 BNE SOUNDO0 
0308: 60 6 RTS 


下 面 是 一 段 音 响 子 程序 , 它 可 以 通过 向 6502 的 寄存 器 
X 与 立 中 输入 不 同 的 数据 ,获得 各 种 不 同 的 音响 。 例 如 在 
X 中 存放 05，Y 中 存放 F0， 即 可 获得 警车 鸣叫 的 声响 。 


0300- “86 51 STX 351 
0302- “84 50 STY 350 
0304- ”98 TYA 

0305- 。” AA TAX 

0306- ”CA DEX 

0307- “”D0 F0 BNE 30306 
0309- ”2C 30 5C0 BIT 3Cc030 
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030C- ”全 51 
030E-  AA 

030F- (CA 

0310- ， DO _FD 
0312- 2C 30 C0 
0315- ”88 
0316- ”DO0 EC 


0318- “60 


EOR 
TAX 
DEX 
BNE 
BIT 
DEY 
BNE 
RTS 


351 


$030F 
4$C030 


30304 


最 后 向 读者 提供 一 个 名 为 “ MAGIC VOICE "的 产生 各 种 
音响 的 组 合 程序 。 其 各 种 音响 名 如 下 面 的 屏幕 菜单 所 示 。 


LASER 
HELICOPTER 
UFO LANDING 
LOW SLOW ZAP 
MACHINE GUN 
TELEPHONE 
WHISTLING 
BONUCE3 
BONUCE5 

ZAP 

UFO LANDING2 
UFO FLY-BY 
HOVERING UFO 
OUTER SPACE 
HOVERING UFO2 
UFO LANDING3 
ATOMIZATION 
OUTER SPACE2 
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:MAGIC VOICE; 


EXPLOSION 
MULTIPLE LASER 
LOW ZAP 

BONUCE 

TONE 

FOGHORN 

SOUND OF AMBULANCE 
BONUCE4 
TELEPORTER BEAM 
BUZ2Z 

BOMB DROP 
TRACTOR BEAM 
DEATH-RAY 
DEATH-RAY2 

UFO TAKE-OFF 
TELEPORTER BAEM2 
BONUCE2 

DIVE STRAFING 


“MAGIC VOICE 程序 的 使 用 方法 如 下 : 
进入 主 菜单 后 , 使 用 左 、 右 箭头 键 移动 光标 ,选择 所 需 
音响 , 按 下 回 车 键 后 , 即 会 将 所 选 的 音响 发 声 演示 一 过 ， 而 
后 屏幕 显示 为 : 
:MAGIC VOICE : 


Please liten. 


FILE NAME: LASER(CALL2048) 

You can use CALL2048 command to add it into your 
program. 

Do you want another?7 

屏幕 提示 了 调用 该 音响 子 程序 的 入口 地 址 ， 并 已 进入 内 
存 中 ,可 供 你 在 程序 中 调用 。 


第 五 章 ”游戏 程序 设计 的 数学 技巧 


在 游戏 程序 中 出 现 的 大 量 事 件 都 是 随机 的 ,所 以 在 编制 
游戏 程序 时 ,一 定 会 用 到 随机 数 。 我 们 更 希望 能 编 出 算法 有 
一 定 智 能 性 的 程序 ,这 就 要 经 常 使 用 查找 、 检 索 算 法 。 当 然 ， 
多 人 参加 的 竞争 性 游戏 还 要 将 各 人 的 得 分 排出 名 次 。 在 这 一 
章 中 ,我 们 将 介绍 在 计算 机 游戏 程序 设计 中 常用 的 一 些 数学 
方法 。 


第 一 节 ，” 随机 事件 与 其 概率 


在 我 们 的 日 常生 活 中 ,有 许多 事情 在 一 定 条 件 下 是 会 必 
然 发 生 的 。 例 如 在 标准 大 气压 下 ,水 的 温度 达到 100C 就 会 
沸腾 ,氧气 在 氧气 中 燃烧 会 变 成 水 并 放出 热量 。 这 种 在 一 定 
条 件 下 必然 要 发 生 的 事件 , 称 为 必然 事件 。 有 些 事件 ,例如 在 
常温 下 钢铁 自己 融化 ,太阳 从 西边 升 起 ,是 不 可 能 发 生 的 。 这 
种 在 一 定 条 件 下 不 可 能 发 生 的 事件 ,叫做 不 可 能 事件 。 此 外 ， 
还 有 些 事件 ,它们 在 一 定 条 件 下 可 能 发 生 也 可 能 不 发 生 。 例 
如 掷 一 枚 硬币 正面 向 上 ,明年 十 月 一 日 上 海地 区 下 雨 等 等 , 事 
先 不 能 确定 其 是 否 发 生 。 这 种 在 一 定 条 件 下 可 能 发 生 也 可 能 
不 发 生 的 事件 ,叫做 随机 事件 。 

虽然 随机 事件 在 一 次 试验 (也 就 是 实现 一 次 该 事件 的 条 
件 ,诸如 “ 掷 一 次 硬币 “等 ) 中 是 否 发 生 是 不 能 事先 确定 的 ,但 在 
大 量 重 复试 验 的 情况 下 ,其 发 生 与 否 也 会 出 现 一 定 的 规律 。 
例如 ,多 次 掷 一 枚 仍 子 ,统计 出 现 6 点 的 次 数 ,其 结果 如 表 5.1 
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所 示 。 


表 5$.1 


5 
EECOIOIT 


可 以 看 到 , 当 掷 人 般 子 次 数 较 多 时 ,出 6 点 的 比率 ( 称 为 频率 ) 
接近 于 常数 0.17。 又 如 ,在 相同 条 件 下 ， 对 某 类 种 子 进行 发 芽 
试验 ,其 结果 如 表 5.2 所 示 。 


掷 般 子 次 数 n 
出 现 6 点 次 数 m 
出 6 点 频率 mvn 


1000 


表 5S.2 


2 $ 10 70 150 | 250 
迪 4 人 61 116 | 227 
] 0.8 0.9 | 0.87 | 0.89 | 0.91 


可 以 看 到 ,该 种 子 较 多 时 ,发 芽 的 频率 接近 于 常数 0.9。 
一 般 地 说 ,在 大 量 重 复 进 行 同 一 试验 时 ,事件 A 发 生 的 频率 
mn 叫做 该 事件 A 的 概率 , 记 作 P(A)。 很 显然 ,任何 随机 事 
件 的 概率 满足 


试验 种 子粒 数 n 
发 芽 种 子粒 数 m 
发 芽 种 子 频 率 m /n 


0< P(A) 1 


而 必然 事件 的 概率 是 1, 不 可 能 事件 的 概率 是 0。 

在 日 常生 活 、 工 作 、 学 习 中 ,随机 事件 是 常见 的 .例如 原 
了 反应堆 中 中 子 穿 透 保护 层 的 扩散 运动 ,十 字 路 口 的 交通 流 
量 ,电子 游戏 中 的 打 扑 克 , 掷 仍 子 ,你 追 我 赶 等 等 都 要 有 一 定 的 
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随机 性 。 
要 用 计算 机 来 模拟 随机 事件 ,随机 函数 是 不 可 缺少 的 工 
具 ， 在 中 华 学 习 机 的 APPLESOFT BASIC 语言 中 就 具有 产 
生 随 机 数 的 功能 , 它 由 随机 函数 RND(X) 来 定义 。 其 中 X 是 
-个 形式 上 的 变量 ,一 般 取 为 1。 下面 让 我 们 来 执行 一 段 小 
程序 ( 见 程序 5.1)。 


程序 5S.1 


LIST 
10 PRINT RND (1) 
20 CO0TO 10 


RUN 

.399509486 
.968109999 
.662058096 
.757887598 
.896017107 
.798510828 
.436500225 
.364244558 
.246294529 
.162424904 
.470854874 
-643364708 
.801727409 
.958309029 
.580899518 
.553110947 


130 


.31844561 
.0733264602 
.393231501 


在 屏幕 上 可 以 得 到 一 系列 看 起 来 似乎 是 毫 无 规律 ,但 义 
是 相当 均匀 地 出 现 的 介 于 0 与 1 之 间 的 小 数 。 所 谓 毫 无 规律 
地 出 现 是 指 在 你 见 到 了 一 个 数 之 后 紧 接 着 出 现 的 将 是 一 个 什 
么 数 ,一 般 说 来 事先 是 无 法 知道 的 ;所 谓 均 匀 地 出 现 是 指 这 些 
数 在 [0,1) 之 间 任 何 两 个 长 度 相等 的 区 间 中 出 现 的 个 数 几 乎 是 
相等 的 。 例 如 ,我 们 将 [0,D) 区 间 划 成 


[0.0.1),[0.1,0.2),[0.2,0.3)…",[0.9,1) 


这 样 十 个 长 度 相 等 的 小 区 间 , 再 让 计算 机 用 随机 函数 来 产生 
10000 个 随机 数 ,并 统计 一 下 落 在 各 小 区 间 中 数 的 个 数 。 我 
们 会 发 现 , 落 在 每 个 小 区 间 的 数 大 致 均 为 1000 个 左右 。 也 就 
是 说 ,概率 都 是 0.1 左右 。 读 者 可 通过 执行 程序 5.2 来 验证 这 
- 占 


程序 “5S.2 


LIST 

5 INPUT “N=“N 

10 FOR I=1TON 

20A= INT (10*# RND (1)) 

30 NCA) = NCA) + 1 

40 NEXT 1 

50 FOR I = 1 TO 9: PRINT LNCID)y 
NCI) / N: NEXT 1 


]3] 


RUN 


N=10000 

开 1022 .1022 
2 1028 .1028 
3 965 .0965 
4 965 .0965 
5 1012 .1012 
6 963 .0963 
还 1035 .1035 
8 1021 -1021 
9 969 0969 


其 中 简单 变量 N 为 随机 数 的 个 数 ,下 标 变量 NDGU= 0 一 
9) 的 每 个 分 量 记 录 落 在 各 小 区 间 中 的 随 数 个 数 。 

由 计算 机 计算 出 的 随机 函数 值 一 般 采 用 某 种 递 推 公式 得 
到 .) 它 是 由 某 一 初 值 开始 ,将 每 次 算得 的 结果 作为 新 的 初 值 
进行 反复 计算 得 到 。 因 此 ,由 这 种 方法 得 到 的 随机 数 经 过 
定 的 周期 后 ,又 会 重新 得 到 一 个 与 原始 初 值 相等 的 随机 数 
值 。 这 样 一 来 ,接着 出 现 的 随机 数 就 与 原先 的 随机 数列 逐个 
重复 ， 所 以 用 这 种 方法 产生 的 随机 数 称 为 伪 随机 数 。 

在 中 华 学 习 机 中 还 有 一 种 产生 随机 数 的 方法 : 由 于 在 有 $ 
4E, $4F( 十 进 制 为 78,79) 两 个 内 存单 元 中 存放 着 的 数 与 最 近 
两 次 击 键 的 时 间 间 隔 有 关 , 而 两 次 击 键 之 间 的 间隔 往往 是 随 
机 的 , 故 这 两 个 单元 中 保留 的 数 实 际 上 是 一 个 随机 数 。 我 们 
可 以 用 程序 5.3 来 验证 。 


D 下 面 就 是 BASIC 中 采用 的 作为 随机 数 发 生 器 的 递 推 公 式 为 : 
Xn+D= Aik。Xn+((k-1DcA OO-D)。 (mod MD) 
更 详细 的 知识 请 参阅 有 关 概 率 统计 教科 书 ， 
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程序 S.3 


LIST 

10 PRINT 256 # PEEK (79) + PEEK (78) 
20 GET A3 

30  G0T0 10 


RUN 

53180 
65460 
10849 
38520 
20262 
37043 
19201 
20875 
20876 
61506 
11750 
57912 


运行 该 程序 可 以 得 到 一 个 0 一 6$,$35 之 间 的 随机 整数 ， 
以 后 每 击 一 次 键 即 可 得 到 一 个 随机 整数 。 


第 二 节 随机 函数 应 用 举例 


一 、 掷 蜗 子 . 

搓 一 颗 骨 子 ,可 能 出 现 的 点 数 是 1,2,3,4,5 或 6, 而 我 们 的 
随机 函数 只 能 产生 0 一 1 之 间 的 随机 小 数 。 为 了 要 随机 产生 
整数 1,2,3,4,$ 或 6, 只 要 对 随机 函数 作 适 当 的 处 理 , 将 它 改写 
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成 如 下 形式 : 


R=1+INT(6xRNDI(I)) 


因为 RND(D) 产 生 大 于 0 且 小 于 1 的 均匀 分 布 的 小 数 ,6x 
RND(D) 即 为 大 于 0 且 小 于 6 的 随机 数 ,INT(6x RND(D)) 每 
次 所 得 即 为 0,1,2,3,4,5 这 六 个 整数 之 一 。 因 此 尺 即 为 
1,2,3,4,5 或 6 这 六 个 整数 之 一 了 。 一 般 地 说 ,要 得 到 在 1 一 N 
之 间 ( 包 括 1 和 N 在 内 ) 的 随机 整数 可 以 通过 公式 
有 R=1I+INTINxRND(D)) 来 得 到 。 


二 、 发 扑克 牌 

一 副 扑 克 牌 共有 52 张 (不 算 大 小 妖怪 ), 黑 桃 、 红 心 、 方 
块 、 草 花 各 13 张 。 分 别 用 SA,SK,SQ,SJ,ST,S9,S8…。 
,S3,S2,HA,HK,HQ,HJ,HT,H9,H8,… 
H3,H2,DA,DK,DQ,DJ,DT,D9,D8,… 
,D3,D2,CA,CK,CQ,CJ,CT,C9,C8,…,C3,C2 来 表示 。 我 们 
可 以 先 把 表示 $2 张 牌 的 这 些 数据 分 别 放 和 数组 A$ 的 52 
个 分 量 A$(D),A$(2)…,A$(52) 中 ,再 让 计算 机 产生 一 个 1 
一 52 之 间 ( 包 括 1 和 5$2) 的 随机 整数 尺 , 那 么 A $(R) 就 是 计算 
机 要 发 出 的 第 一 张 牌 ,显示 A$ (R) 就 是 出 牌 。 为 了 继续 发 牌 ， 
就 要 把 A$ (R) 后 面 的 分 量 中 记录 着 的 数据 依次 往 前 送 。 再 
让 计算 机 产生 一 个 1 一 51 范围 的 随机 数 ,重复 上 述 过 程 再 出 
牌 ,再 把 后 面 的 数据 向 前 移动 ,再 出 牌 ……, 直 到 所 有 牌 全 部 出 
完 为 止 。 程 序 5.4 即 能 将 一 副 扑 克 分 发 给 四 人 ,每 次 运行 这 
个 程序 所 发 出 的 牌 都 不 相同 。 
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程序 $.4 ”发 牌 程序 


LIST 


10 DATA SA SK， SQy, SJ，ST S9，S8，S7， 
S6, S5， S4, S3， S2， HA HK， HQy HJ, TH 
T, H9, H8,H7,H6, H5, H4, H3， H2 

20 DATA DA, DK,DQ, DJ,DT,D9,D8,D7， 
D6,D5,D4,D3,D2, CA, CK, CQ CC 
T, C9， C8， C7, C6, C5， C4， C3，C2 

30 DIM A$(52) 

40 FOR I =17T0 52 

50 READ AS(I) 

60 NEXT I 

70 FOR 1 = 527T01STEP -1 

80R=1l+ INT(I RND (1)) 

90 PRINT A3CR)””? 

100 FOR J = RTO51 

110 AS$(J) = AS(J + 1) 

120 NEXT J 

130 IF (53 -IJ) /13= INT ((53 

- I) / 13) THEN PRINT : PRINT 
140 NEXT 1 


RUN 

DA H6 C9 D9 CJ S7 HA H3 D6 D8 D3 S8 C2 
H4 HK S6 SK C8 D2 DJ] D4 HQ SQ D5 5C6 ST 
DQ DK C5 DT CK C7 H9 H7 D7 S5 CT S9 Sj 
H8 C3 C4 H2 SA CA CQ HT S3 S2 HJ H5 S4 
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三 、 二 位 数 加 法 练习 程序 (可 供 小 学 一 年 级 学 生 作 心 算 练习 

用 ) 

首先 让 计算 机 出 两 个 0 一 99 之 间 的 自然 数 , 送 入 变量 A 
和 B, 并 打印 出 相应 的 加 法 算式 ,提示 学 生 从 键盘 输入 答案 , 当 
学 生 从 键盘 输入 答案 C 后 ,计算 机 即 让 A+B 的 正确 值 与 C 
进行 比较 ,如 果 做 错 了 , 则 人 允许 重新 做 一 次 该 题 。 如 果 做 对 了 ， 
则 计 分 。 一 次 就 做 对 的 可 得 10 分 ,第 二 次 才 做 对 的 只 能 得 $ 
分 。 总 共 做 10 题 ,做 满 10 题 即 打印 出 总 分 。 

在 程序 中 ,用 到 两 个 计数 器 LJ 和 一 个 累加 器 S。S 用 来 
累加 所 得 之 总 分 江 用 来 统计 题 数 ;J 用 来 统计 各 题 所 做 的 遍 数 ， 
因此 它 在 每 出 一 个 新 题目 时 都 要 重新 清 零 。 

程序 清单 及 运行 结果 见 程 5.5。 


程序 ”5.5 加 法 程序 


LIST 

10A= INT (RND (1) *# 100):B = 
INT ( RND (1) # 100) 

15j -0 

20 PRINT :PRINT A“+“B“=”5 

30 INPUT C 

40 IFA+B=CTHEN 70 

50J=J+l: IFJ<2THEN 20 

60 GO0TO 90 

70 IFTI=-0OTHNS =S+10 

80 IFJ=1THNS=S+5 

901=-1+1 IFI<1l0THEN 10 

100 ”PRINT “S=”3S 
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RUN 


16+66=?82 
20+16=?36 
12+27=?39 
18+41=?59 
18+34=?42 
18+34=?52 
79+68=?117 
79+68=?127 
27+4=?31 
34+94=?128 
72+33=?104 
72+33=?100 
64+88=?152 
S=75 


第 三 节 ” 带 有 限制 的 随机 活动 


在 本 节 中 ,我 们 以 中 华 学 习 机 的 低 精度 图 示 状 态 中 的 色 
点 随机 运动 为 例 , 利 用 随机 函数 来 建立 一 个 模拟 系统 。 

大 家 知道 ,在 低 精 度 图 示 状 态 下 ,屏幕 被 分 成 40 x 40 个 
色 点 ,为 了 表明 每 个 色 点 的 位 置 ,可 建立 平面 直角 坐标 系 :以 左 
上 角 为 原点 (0,0), 从 左 到 右 为 环 轴 方向 ,从 上 到 下 为 了 轴 方 
向 。 假 设 一 开始 有 个 亮点 在 X0=20,Y0=20 处 ， 那 么 它 有 
八 个 运动 方向 :上 ,下 , 左 , 右 , 左 上 ,左下 ,右上 , 右 下 。 在 沿 每 个 
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方向 运动 时 其 坐标 的 增 量 可 由 表 5.3 查 得 . 


我 们 可 先 把 这 个 增 量 表 放 在 一 个 称 之 为 工作 数组 的 两 
维 数组 丈 (2,8) 中 ( 见 表 5.4)。 


表 5S.4 


了 机 区 泛 医 基色 项 医 再 谍 到 攻 攻 区 
是 本 辆 珊 国 国 醒 辆 用 
和 


然后 再 用 一 个 取 值 范围 为 1 一 8 的 随机 数 来 确定 前 进 方向 , 那 
么 屏幕 上 亮点 即 可 无 规则 地 活动 起 来 。 读 者 不 妨 观察 一 下 程 
序 5.6 所 产生 的 图 示 结 果 。 
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程序 5S.6 


LIST 

10 DATA 1 01，,1,0,1,-1l,1,-1，0 
-1 -1 0, -1， 1, -1 

20 FOR 1I1=17T08 

30 READ W(l,1),W(CI,2) 

40 NEXT 1I 

50 GR :X0 = 20:Y0 = 20 

60 COLOR= 7: PLOT X0,Y0 

70R=1l+ INT (8 RND (1)) 

80X=Xo+WGR1):Y = YO+WGR'2 ) 

90 COLOR= 0: PLOT X0o,Y0 

100 X0 = X:Y0 = Y: G0T0 60 


程序 5.6 中 的 亮点 动 到 后 来 ,很 可 能 要 走 到 屏幕 的 边缘 ， 
再 往外 走 一 步 就 越界 "了 ,这 时 计算 机 上 面 就 会 给 出 一 个 出 
错 信息 ,然后 便 停 止 执行 程序 。 为 了 避免 发 生 这 种 情况 ,只 需 
要 在 由 随机 数 产生 一 个 方向 数 后 ,亮点 运动 之 前 , 先 判断 一 下 
如 果 亮 点 沿 此 方向 运动 是 否 越界 就 行 了 。 如 果 越 界 ,就 让 计算 
机 重 新 产生 一 个 随机 数 ,在 新 的 方向 上 再 试 一 试 。 
修改 以 后 的 程序 见 程 5.7。 


程序 5S.7 
上 151 
10 DATA 1,0,1, 1,0, 1, -1 1 -1 0 
-1 -1 0 -1 1 -1 
20 FOR I1I=TT0O8 
30 READ W(I,1),W(Iy,2) 
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NEXT 1 


40 
50 GR : COLOR= 15:X0 = 20:Y0 = 20 


52 HLIN 10,30 AT 10 

54 HLIN 10,30 AT 30 

56 VLIN 10,30 AT 10 

58 VLIN 10,30 AT 30 

60 COLOR = 7: PLOT X0,Y0 

70R=1+ INT (8 RND (1)) 
80X=X0O+WGR'1):Y = Y0O +WGR,2) 

85 IFX=1l00oRX=300RY= 100RY=30THEN 70 


90 COLOR= 0: PLOT X0yY0 
100 X0 = XiY0O = Y: GO0T0 60 


在 这 个 程序 中 的 S2 一 38 语句 中 , 屏幕 上 画 出 了 一 个 方 
框 ,作为 亮点 活动 的 界限 。 在 画 出 新 亮点 之 前 程序 要 先 判断 
该 亮点 是 否 落 在 边界 (85 语句 ) 上 。 如 果 落 在 边界 上 ,那么 重 
新 产生 一 个 新 的 亮点 方向 。 


第 四 节 ”距离 逼近 


假如 你 要 设计 一 个 计算 机 游戏 ,当然 最 好 是 让 程序 表现 
出 某 些 智能 性 。 例 如 我 们 想 表 现 追 逐 某 个 目标 物 ,那么 就 必 
须 随 着 目标 的 转移 ,要 求 计算 机 能 根据 具体 情况 及 时 改变 追 
击 物 的 方向 和 速度 。 为 了 方便 起 见 , 我 们 把 由 计算 机 控制 的 
追击 物 称 为 猎人 ,而 游戏 者 控制 的 被 追击 物 称 为 猎物 。 猎 人 
的 坐标 是 (AX,AY)。 而 猜 物 的 坐标 是 (BX,BY)。 不 断 利用 变 
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换 式 
AX= AX-SGN(AX-BX)， 
AY=AY-SGN(AY-BY) 


来 改变 猎人 的 位 置 , 即 可 达到 猎人 向 猎物 追击 的 目的 。 其 中 ， 
函数 SGN(X), 当 X<0 时 , 它 的 值 为 -1; 当 X=0 时 , 它 的 值 为 
0: 当 X>0 时 , 它 的 值 为 1。 所 以 , 当 AX> BX 时 ,表明 猎人 在 
猎物 的 右 方 ,要 进一步 靠近 猎物 ,至 少 应 左 移 一 个 单位 距离 , 即 
必须 将 AX 减 1。 反 之 , 若 AX<BX 时 , 则 表明 猎人 在 猎物 的 
左 方 ,要 进一步 接近 ,就 必须 右 移 , 即 必须 将 AX 增 1。 当 
AX=BX 时 ,AX 不 变 。 对 于 立方 向 也 作 相 同 的 处 理 , 即 可 得 
到 猎人 向 猎物 盘 近 的 目的 。 

下 面 做 一 个 最 简单 的 追击 游戏 : 先 输入 猎人 和 猎物 各 自 
的 坐标 ,程序 将 执行 控制 猎人 向 猎 物 扑 去 的 有 关 指 令 。 此 外 ， 
还 规定 如 果 控 制 人 员 按 了 一 次 工 J 玫 , 工 四 个 键 之 一 ,那么 则 猜 
物 就 会 沿 指定 方向 逃避 一 步 ( 按 工 向 上 , 按 芽 向 左 , 按 K 向 下 ， 
按 工 向 右 )。 直 到 猎人 捕获 到 猎物 ,程序 便 告 结束 。 这 个 程序 


START 


输入 : AXy AYy BXy BY 


图 5.1 距离 盘 近 程序 框图 


的 简单 框图 如 图 $.1 所 示 。 
按照 这 个 框图 ,很 容易 编写 出 如 下 BASIC 程序 。 
程序 $.8 ”逐步 逼近 
LIST 
5 GR : 有 (1l,1) = 0: 了 且 (1,2) = - 1 
: 胀 (2,1) = - 1: 赋 (2,2) = 0; 
了 赋 (3,1) = 0: 且 (3，2) = 1: 胀 (4 ， 1) = 1 号 (4 2) = 0 


10 INPUT “AX,AY=“3AXyAY 
20 INPUT “BX，BY=“3BX， BY 
30 COLOR= 15: PLOT AXyAY: COLOR= 7: PLOT BX,BY 


40 2 = PEEK(〈 - 16384):XE = BX:YE = BY 


50Z=Z-200: IFZ>0ANDZ< 
5 THEN BX = BX + 且 (Z,1):BY = BY + 号 (7,2) 


60 IF BX <1ORBX>39THEN BX -=ABS (39 - BX) 
70 IFBY<10ORBY>39THEN BY = ABS (39 - BY) 
110 X0 = AX:AX= AX - SGN (AX - BX) 
120 Y0 = AY:AY = AY - SGN (AY - BY) 
130 IF AX = BX AND AY = BY THEN 

PRINT ““"; TEXT ; POKE  - 16 368,0: END 
140 。 COLOR= 0: PLOT X0)Y0: PLOT X EYE 


150 6G0T0 30 


程序 中 使 用 的 二 维 数组 WK 记录 了 每 个 方向 的 增 量 , 这 
里 共用 了 四 个 方向 :上 ,下 , 左 , 右 ,所 以 该 数组 只 用 了 4x 2 个 分 
量 ， 程 序 开始 时 要 求 输入 猎人 与 猎物 的 各 自 位 置 (AX,AY) 
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和 (BX,BY), 此 后 便 开 始 出 现 猎 人 向 猎物 逐步 逼近 的 动作 .如 
果 按 了 IJK, 江 四 个 键 之 一 ,屏幕 上 的 猎物 就 会 按 你 的 意愿 逃 
避 猎 人 的 捕 提 .只 要 你 稍 不 留神 ,不 一 会 儿 ,猎物 就 会 被 猎人 
捕获 .此 外 ,程序 中 还 做 了 出 界 处 理 . 如 果 在 左边 出 界 , 即 让 其 
在 右边 进入 ;在 上 面 出 界 即 让 其 在 下 面 进入 ,从 而 使 整个 屏幕 
好 象 是 一 块 上 下 、 左 右 连 接 起 来 的 “球形 "屏幕 一 样 。 

程序 5.9 是 一 个 “ 猫 捉 老鼠 "的 游戏 程序 。 在 低 精 度 绘 图 
方式 下 ,我 们 用 黄色 表示 土地 ,用 紫红 色 表 示 土 地 上 的 粮食 。 
开始 时 ,在 屏幕 左上 角 上 有 一 只 紫色 的 “ 猫 ", 在 右 下 方 有 一 只 
白色 的 “老鼠 "”。 计 算 机 控制 猫 向 老鼠 扑 去 ,游戏 者 可 以 利用 
LJK,L 四 个 键 控制 老鼠 逃跑 的 方向 。 我 们 应 尽量 控制 老鼠 
向 有 粮食 的 位 置 逃 去 。 这 样 ,老鼠 就 能 边 吃 边 逃 。 一 旦 老鼠 
吃 满 了 400 颗 粮食 ,就 算 老鼠 逃脱 了 猫 的 追捕 而 获 有 性。 老鼠 
被 抓 到 以 后 又 会 出 现 新 的 猫 提 老鼠 的 情况 。 程 序 中 共 设 置 了 
五 只 老鼠 ,如 果 老 鼠 都 被 猫 捕 获 , 则 全 局 失败 。 在 屏幕 的 下 方 
还 记录 了 老鼠 数 (用 * 表示 ) 和 老鼠 吃 到 的 粮食 数 , 供 游戏 者 参 
考 。 

程序 中 的 变量 A,B 表示 老鼠 位 置 .变量 C,D 表示 猫 的 坐 
标 ,变量 K 表示 老鼠 数 ,变量 O 记录 老鼠 吃 到 的 粮食 数 。 

程序 的 框图 及 清单 如 图 5.2 所 示 。 
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START 


定义 工作 数组 ， 并 给 工作 ] 
数组 冉 信 
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图 5.2 猫 捉 老鼠 程序 框图 


程序 $.9 猫 捉 老鼠 


LIST 

10 DIM 有 (4,2):WK(l1) = 0:WL(Cl， 
2) = -1: 胰 (2,1) = - 13: 赋 ( 
2,2) = 0: 了 呈 (3,1) = 0: 了 号 (3,2) 

= 1: 号 (4,1) = 1: 号 (4,2) = 0 

90W=1X= 13:K=5: GR ; COLOR=X 

100 FOR I =17T039: VLIN 1 39 AT 
I: NEXT ; COLOR= 见 

ll10 FOR I =5T0O 39 STEP5: VLIN 
1,39 AT I: HLIN 1,39 AT I: NEXT 


120A=35:B= A:C=5:D = CIAL = 
A:B1L = B:C1 = C:D1 = D:EE = 
SCRN( CD) 
125 “HOME 
130 COLOR= 15: PLOT Ay,B: COLOR= 
3: PLOT C,D: VTAB 21: FOR 1 = 
1 TO K: PRINT “ “5 NEXT 
140 PRINT : GET A9 
150 P = PEKK (49200):P = PEEK ( 
- 16384) 
160P=P-200: IFP>0ANDP< 
5THEN A=A+ 了 由 (P,1):B = B 
+ 胀 (P,2) 
210 IFA<1lOoRA>39THEN A= 
ABS (A - 39) 
220 IFB<1OoRB>39THEN B = 
ABS (B - 39) 
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230 IF SCRN( A,B) = 又 THEN A = 
Al:B = Bl: GOT0 270 

240 IF SCRN( A,B) < > 0THEN 0 
= 0 + 1: VTAB 21: HTAB 36: PRINT 
0: IF 0 = 400 THEN 410 

250 ”COLOR= 0: PLOT Al,Bl:AL = A: 
B1 = B 

260 COLOR= 15: PLOT AyB 

270M= ABS (A-C):N= ABS (B - 
D):MF = SGN (A - C):NF = SGN 
(B - D)] 

280 IFM< >0ANDN< >0THEN 
310 

290 IF M=0THEN 320 

300 IF N = 0 THEN 340 


310 IF M>NTHEN 340 
320D=D+NF: IF SCRN(C CD) < 
> X THEN 360 
330D = Dl: IFZ=1TTHEN 2Z = 0:N 
F= -~-NF:MF = - MF: GO0TO 320 
340 C = C +MF: IF SCRN(C CD) < 
> X THEN 360 
350 C = Cl:Z2 = 1: G0T0 320 
360 E = SCRN(C CD): COLOR= EE: PLOT 
Cly,D1: COLOR= 3: PLOT CD: IF 
Dll< >COR Dll< >07THEN 
EE = EC1 = CD1 = D 
370 IFC=AANDD=BTHEN 400 
380Q=Q+l: IFQ=10THEN Q = 
0: G0TO 270 
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390 ”60T0 150 

400 IFK=0THEN TEXT : HOME : 
VTAB 10: HTAB 10: PRINT Y0 
U L0ST“:， POKE -~ 16368,0:; END 

405K =K - 1: G0T0 120 

410 TEXT : HOME : VTAB 10: HTAB 
10: PRINT “YOU WIN“: POKE  - 
16368,0 


这 种 逐步 通 近 的 方法 ,一 是 为 了 模拟 实际 情况 ;二 是 猎人 
的 图 形 每 次 移动 距离 不 能 太 大 ,和 否则 屏幕 图 形 将 产生 间断 跳 
外 , 使 动画 失真 。 


第 五 节 排序 


在 计算 机 数据 处 理 中 ,经 常 遇 到 对 数据 进行 排序 的 问 
题 。 而 在 游戏 程序 中 也 会 遇 到 对 得 分 进行 统计 、 排 名 次 等 要 
求 ,这 就 需要 对 数据 进行 排序 。 排 序 的 方法 很 多 ,这 里 我 们 介 
绍 几 种 最 简单 的 排序 方法 。 

假定 现在 有 一 个 选票 程序 , 先 把 对 五 个 候选 人 
NO.LNO.2…,NO.5 的 选票 数据 放 在 DATA 之 中 ,然后 由 计 
算 机 统计 各 人 的 得 票数 ,并 放 在 数组 A(D 中 。 


程序 $S.10 ”选票 


LIST - 
10 DATA 2 3，2, 1 4,5，4， 3，4， 5，2，2， 
3,，2, 4,5,5,4，, 1， 2,3,1,4,5，1， 2 
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5，4， 3，2， 1,5，4，5，4，4，4， 3，3，4， 
5 2， 2 1 3, 1 2 3 4，5，3，2，4， 2， 
4 1， 3，4， 5， 3 4， 5，2， 1 3 4, 5 3， 
2 1， 3， 4 5，5,5， 1 2, 3，3，3，2，3， 
1，2, 3， 2 3 2, 1 2， 3， 2 5， 4 5，4， 
1 2, 3 2,0 

20 DIM A(5) 

30 READ 义 

40 IFX=0THEN 100 

50 A(CX) = A(CX) + 工 

60 6G0T0 30 

100 FOR I=17T05 

110 PRINT “NO.”IT;ACI) 


120 NEXT 1 

]RUN 

NO。.1 14 
NO.2 24 
NO0.3 23 
NO.4 21 
NO0.5 18 


由 程序 运行 结果 可 知 ,1 一 $ 号 候选 人 的 得 票数 依次 为 
14,24,23,21,18。 下 面 的 任务 是 让 计算 机 对 这 些 数据 进行 排 
序 (由 大 到 小 列 出 高 低 名 次 )。 我 们 提供 的 三 种 排序 方法 适用 
于 你 所 编写 的 任何 需要 排序 的 程序 。 使 用 时 只 需 将 这 里 所 提 
供 的 程序 中 的 100 一 200 号 语句 移 人 你 所 编写 的 程序 的 恰当 
位 置 即 可 。 


一 、 选 择 排序 法 
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选择 排序 法 的 方法 是 : 先 从 要 排序 的 数组 A 中 找 出 最 大 
的 元 素 ,把 它 作 为 数组 B 的 第 一 个 元 素 ,再 把 该 最 大 元 素 原 来 
的 编号 (在 我 们 的 程序 中 是 指 候选 人 号 ) 作 为 数组 C 的 第 一 个 
元 素 。 然 后 用 一 个 很 小 的 数 (要 比 被 处 理 数据 中 每 个 数 小 很 
多 ,在 这 里 用 的 是 0) 填 人 数组 A 中 最 大 元 素 的 位 置 上 。 重 复 
上 述 过 程 ,在 A 数组 中 找 出 最 大 元 素 ,把 它们 作为 B 数组 的 第 
元 条 浊 总 如 此 循环 下 去 ,直到 A 中 所 有 的 数 都 变 为 0 
为 止 。 此 时 B 中 的 数据 已 经 从 大 到 小 进行 了 排序 ,再 把 C 中 
相应 地 记 着 的 候选 人 号 , 按 顺 序 打印 出 来 就 是 各 人 相应 的 名 
次 了 。 
.完整 的 BASIC 程序 和 运行 结果 见 程序 $.11。 
程序 .S.11 选择 排序 
ETIST 
10 DATA 2,3,2,1,4， 5,，4， 3，4， 5，2，2， 
3 2 4, 5 5， 4， 1， 2， 3， 1 4 5， 1 2， 
5，4， 3，2, 1 5，4， 5，4，4，4，3，3，4， 
5，2, 2, 1 3， 1， 2 3，4，5，3，2，4，2， 
4 1 3，4， 5， 3 4 5，2， 1 3， 4 5, 3， 
2, 1, 3 4, 5 5 5, 1 2， 3，3，3，2，3， 
1 2 3， 2 3，2， 1，2，3，2， 5， 4 5，4， 
1 2 3， 2,0 
20 DIM A(5),B(5),C(5) 
30 READ 义 
40 IFX=0THEN 100 
50 A(X) = A(X) + 1 
60 6G0T0 30 
100 REM 
ll10 FOR 1 = 17T0O5 
120 LARGE = A(1):M = 1 
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130 FOR J] = 27T05 

140 IF LARGE < A(J) THEN LARGE = 
A(CJ):M = 

150 NEXT 】 

160 B(I) = LARGE:C(I) = M:ACM) = 0 

170 NEXT 1 

200 FOR LI = 1 TO 5: PRINT “NO.”C 
(I)，B(I): NEXT 1 


]RUN 

NO.2 24 

NO0.3 23 

NO0.4 21 

N0.5 18 

NO.1 14 
二 、 交 换 排 序 法 ( 冒 泡 法 ) 


交换 排序 法 的 方法 是 :第 一 遍 整 理 时 ,用 A 数组 的 第 一 个 
元 素 和 第 二 个 元 素 相 比 较 ,把 较 大 的 元 素 置 于 第 一 个 位 置 。 
当然 记录 候选 人 编号 的 数组 B 的 元 素 位 置 也 要 作 相 应 的 交 
换 。 然 后 ,用 A 数组 的 第 二 个 元 素 和 第 三 个 元 素 相 比 较 , 较 大 
的 置 于 第 二 位 置 。 这 样 ,对 整个 数组 的 元 素 亲 两 作 了 比较 和 
交换 一 遍 之 后 ,可 使 大 的 数据 往 前 移 一 部 分 。 接 着 重复 第 二 
过 ,第 三 遍 ,…。 直 到 在 某 一 遍 比 较 中 不 再 发 生 交 换 , 则 说 明 整 
个 排序 工作 已 经 完毕 。 在 程序 中 变量 N 就 是 为 了 记录 在 一 
遍 比 较 中 是 否 发 生 过 交换 而 设置 的 。 

采用 这 种 排序 方法 ,对 本 来 就 比较 整齐 的 数据 只 需 比 较 
二 、 三 遍 就 行 了 ,不 必 象 前 一 种 排序 方法 那样 非得 全 部 做 完 
为 止 。 
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完整 的 BASIC 程序 和 运行 结果 见 程序 5.12。 


程序 $S.12 ”交换 排序 
LIST 


10 DATA 2 3 2 1 4，5,，4，3，4， 5，2，2， 
3,，2, 4, 5, 5，4， 1， 2 3， 1，4， 5， 1，2， 
5，4， 3，2, 1 5，4， 5，4，4，4，3，3，4， 
5，2， 2， 1， 3，1， 2，3，4， 5，3，2，4，2， 
4 1 3,，4, 5 3， 4, 5， 2 1 3 4 5,3， 
2, 1,3, 4, 5, 5,5,1, 2,3,3,3, 2,3， 
1， 2 3，2, 3， 2 1, 2 3，2, 5， 4 5，4， 
1， 2， 3， 2 0 

20 DIM A(5),B(5) 

30 READ 义 

40 IFX=0THEN 100 

50 A(CX) = ACX) 二 

60 6G0T0 30 

100 REM 

105 FOR 1 =17T05:B(I) = I: NEXT 
| 

1l10 FOR I=1T05 

120N=0: FOR J=1TT0O4 

130 IF A(J) > A(] + 1) THEN 150 

140N= 1:T = AD):A(J) = AC(J +1 
):A(J + 1) = T 

145 T = B(J);B(J) = B(J + 1):B(J 二 
1) = T 

150 NEXT 】 

160 IFN=0THEN 200 

170 NEXT 1 
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200 FOR I =17T0oO 5: PRINT “NO0.“B 
(1)，A(CI): NEXT 1 


]RUN 

NO.2 24 
NO0.3 23 
NO.4 21 
NO0.5 18 
NO.1 14 


三 、 揪 入 排序 法 

插入 排序 法 的 方法 类 于 玩 纸牌 时 整理 手中 的 牌 即 把 元 素 
这 个 取出 ,并 插入 它 的 正确 位 置 。 先 考虑 第 一 个 元 素 , 它 只 能 
放 在 原 位 。 再 考虑 第 二 个 元 素 , 它 与 前 面 考虑 过 的 元 素 ( 第 一 
个 元 素 ) 比 较 。 如 果 它 比较 大 就 相互 交换 ,否则 保持 不 变 ( 当 
然 ,交换 时 记录 候选 人 编号 的 数组 B 中 的 元 素 也 要 相应 地 交 
换 )。 再 考虑 第 三 个 元 素 ,将 它 与 前 二 个 元 素 进行 比较 ,并 插 人 
适当 的 地 方 ，。。.“.， 。 直 到 考虑 最 后 一 个 元 素 时 ,只 要 
与 已 排 好 序 的 前 N-1 个 元 素 进行 比较 ,并 找 出 适当 的 位 置 将 
其 插入 即 可 。 

用 插入 排序 法 整理 A 中 五 个 数 的 过 程 见 表 5.5。 


表 S.S 


152 


采用 这 种 方法 整理 几 个 数 时 ,移动 数据 的 次 数 也 取决 于 
数据 原来 的 状况 ,平均 需 移动 an-DXZ4 次 。 我 们 也 列 出 其 
相应 的 BASIC 程序 和 运行 结果 , 供 读者 参考 ( 见 程序 $.13)。 


程序 $S.13 ” 揪 入 排序 


LIST 


10 DATA 2,3，2， 1 4 5，4， 3，4 5，2，2， 
3 2, 4,5, 5 4, 1 2 3 1， 4 5， 1，2， 
5，4， 3，2， 1,5，4， 5，4，4，4，3，3，4， 
5，2,， 2, 1 3， 1 2 3，4，5，3，2，4，2， 
4 1 3 4 5， 3 4 5，2， 1 3，4， 5 3， 
2, 1, 3 4,5,5,5, 1 2,3,3，3， 2,3， 
1 2, 3， 2 3， 2 1 2 3，2, 5，4，5，4， 
1 2 3, 2,0 

20 DIM A(5)，,B(5) 

30 READ 六 

40 IFX=0THEN 100 

50 A(CX) = ACX) + 1 

60 6G0T0 30 

100 REM 

105 FOR [ 
1 

l10 FOR 1=27T05:T=ACI) 

120 FOR J =I-1TO1STEP -II 


1 TO 5:B(I) = I: NEXT 


130 IFT<A(J) THEN 170 
140 A(] + 1) = A(J):A(J) = T 
150 B(J + 1) = B(J):B(J) = 1 
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160 NEXT J 

170 NEXT 1 

200 FOR 1 =17T0 5: PRINT “NO.“B 
(1)，A(I1): NEXT 1 


]RUN 

NO.2 24 
NO0.3 23 
NO.4 21 
NO0.5 18 
NO.1 14 


第 六 节 结束语 


当然 ,游戏 越 复杂 所 涉及 的 处 理 手段 将 更 复杂 ,需要 有 更 
多 的 数学 方法 作为 处 理工 具 , 例 如 ,游戏 中 常常 硅 到 复杂 的 地 
形 ,要 对 地 形 或 不 规则 形状 进行 描述 ,就 需要 建立 起 数字 地 形 
模型 (Digital Terrain ModelD, 即 DTM 及 一 整套 处 理 方 法 ( 例 
如 插值 ,光滑 化 等 等 ), 对 抽象 游戏 、 智 能 游戏 常常 要 建立 策略 
树 , 涉 及 对 树 结构 操作 的 一 系列 问题 (例如 ,搜索 ,循环 ,回溯 , 存 
储 , 剪 枝 等 等 ), 在 管理 游戏 中 ,常常 要 用 规划 论 的 方法 求 出 最 
优 目标 函数 ,如 果 把 这 些 知识 都 放 在 这 本 书 中 介绍 , 则 未 免 过 
于 庞大 了 ,所 以 即使 这 些 方法 可 能 带 来 更 吸引 人 的 效果 ,我 们 
也 只 能 割爱 了 。 

最 后 我 们 想 说 ,计算 机 游戏 不 仅 因 为 它 有 很 大 的 潜在 市 
场 ,更 主要 的 是 它 在 青少年 课外 辅助 教育 中 占有 重要 的 地 位 ， 
它 激发 灵感 与 幻想 ,激发 青少年 的 好 奇 心 与 好 胜 心 ,使 之 在 不 
知 不 觉 中 对 他 们 进行 手 脑 协调 、 手 脑 并 用 、 反 应 敏捷 的 训练 ， 


154 


从 而 提高 他 们 的 智力 与 能 力 。 但 是 ,许多 教育 工作 者 ,特别 是 
家 长 对 自己 的 孩子 玩 计 算 机 游戏 不 免 忧 心 重 重 , 担 心 他 (她 ) 们 
浪费 时 间 而 带 来 不 良 后 果 。 我 们 认为 ,一 切 都 在 于 正确 引导 ， 
大 家 知道 ,人 参 是 一 种 高 级 补品 ,但 是 如 果 无 控制 地 饮用 人 参 
也 会 产生 意 想 不 到 的 后 果 , 所 以 科学 指导 是 很 重要 的 。 就 
这 个 意义 上 讲 ,我 们 已 经 达到 了 我 们 原 定 的 计划 目标 。 我 们 
的 目标 是 ,不 仅 让 大 家 学 会 玩 计算 机 游戏 ,更 主要 的 是 要 大 家 
了 解 和 掌握 设计 计算 机 游戏 的 科学 道理 及 其 设计 原理 .过程 和 
方法 ,以 便 把 这 方面 的 教育 工作 引 向 更 高 层次 。 
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附录 A 实例 游戏 程序 框图 


A.1 七 巧 板 构图 游戏 程序 框图 


START 


调 入 七 巧 板 图 形 块 的 
造型 表 及 使 用 说 明 


置 全 屏 高 分 辩 率 图 形 


清高 分 辩 率 第 二 页 , 画 出 
游戏 框架 和 七 块 模板 


Y 
是 空 格 键 吗 ? 


一 一 OKk=I7 一 


| OO 
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全 


N 


-一 Y 
= 一 意 Esc 键 可 7 一 

N 

@O 


选择 前 面 的 图 形 块 , 清 键盘 单元 


选择 后 面 的 图 形 , 清 键盘 单元 


当前 选中 的 图 形 向 左 移动 
当前 选中 的 图 形 向 右 移动 


当前 选中 的 图 形 向 下 移动 
Y 


当前 选中 的 图 形 旋转 一 个 角度 


进入 文本 , 清 屏 


157 


当前 选中 的 图 形 向 上 移动 


一 下 一 


变量 赋值 ,作出 图 形 


@ 
1@ 
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A.2 炸 坦克 游戏 程序 框图 


START 


在 文本 状态 下 显示 作者 、 游 戏 名 和 
其 他 一 些 信息 , 并 延 时 3 秒 


转 入 高 分 辨 率 状态 , 画 出 底 直线 


在 屏幕 上 画 出 飞机 和 坦克 


擦 除 原 来 位 置 上 的 飞机 和 坦克 图 形 ， 
并 在 新 的 位 置 上 画 出 它 。 给 人 以 动感 


N 


坦克 在 炸弹 爆炸 
图 内 否 ?( 即 坦克 和 人 炸弹 的 横 坐 标 之 差 是 理 
小 于 定 值 ) 


Y < 


画 出 爆炸 场面 , 并 伴随 发 声 


清 数 据 区 , 清 屏 区 
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A.3 ” 走 迷 宫 游戏 程序 框图 


START 


游戏 名 字母 的 移动 


键盘 输入 字符 ? 
， 
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A.4 挖 金 砖 游戏 程序 框图 


START 


读 入 COLOR 值 于 CO 数组 中 , WA, PR 数 
组 赋值 ,把 音乐 程序 的 数据 读 入 
$300 开 始 的 内 存单 元 中 。Po IF,TI 置 初 值 


进入 低 分 辨 率 状 态 


输出 金山 的 形状 


在 屏 攻 左 上 和 角 显 示 小 房子 ; SUB2 


打印 成 绩 ; SUB1 


小 方块 与 它 所 覆盖 的 方块 交替 显示 
4 次 ,同时 发 声 ; SUB85 ，P 赋 零 值 


对 参赛 者 取 被 光标 块 覆盖 的 方块 ， 
同时 根据 不 同 的 颜色 值 计 分 并 且 
发 声 , 并 打印 本 次 控 砖 成 绩 : SUB6 


取 与 此 方块 左右 有 关 的 方块 的 坐 
标 : SUB7 


把 光标 块 左右 有 关 的 坐标 值 和 总 
数 赋 子 数 组 : SUB8 


以 另 一 种 颜色 在 新 的 位 置 上 画 出 房 
子 :SUB16 ， 访问 声音 单元 10 次 


Y 
调用 扩 除 房子 程序 : SUB12 


显示 粉碎 后 房子 的 形状 ; SUB13， SUB14， 
SUB15 


A.S 人 金 叶 古 塔 搬移 游戏 程序 框图 


STAR1 


清 屏 , 确 定 光标 的 位 置 


Y 


Q@ 
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@ 


清 屏 , 调 出 梵 塔 图 形 ,确定 光标 位 置 


@ 


@ 


移动 次 数 : TRYS 加 1 


转 判 断 塔 盘 是 否 已 经 移 完 子 程序 : SUB1 


TRYS 为 真 否 ? 
ER 


回 
外 
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@ 
se a REED | 
N 
2 N 
芋 左 移 键 思 ?> | 妾 值 


N N=27 


5 <s> 
下 
有 


清除 整个 屏幕 ,进入 文本 方式 


< 
PL=2 N 


<E27> 
N 
显示 两 个 星 号 
@ 


SS 


DK=l 和 Y 
二 
N 
Tw(PL,DK) 为 真 否 
1 


Y 


确定 光标 位 置 


StEW(PL,DK) 为 真 否 ? 


N 
(PLDK)>HOLD 吧 


TW(CPL,DK-1) 赋 值 : 
HOLD 
设置 SPEED 为 200 


1 3 


显示 提示 信息 


1 = 


确定 光标 位 置 
输出 出 错 信息 


确定 光标 位 置 
输出 空格 字符 


设置 SPEED,HOLD 


TWCPL,DK-1) 赋 值 :; 
HOLD 


HOLD,TWCH1,H2) 
赋 零 值 。 
移动 塔 盘 
子 程序 : SUB2 
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A.6 人 金 叶 古 塔 搬移 子 程序 框图 


SUB 】 


Y 
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SUB 2 SU 


HCOLOR, A G 赋 值 


转 作 图 子 程序 : SUB3 


转 作 图 子 程序 : SUB3 


RETURN 


A.7 “保龄球 游戏 程序 框图 


START 


把 6o,61 和 62,63 所 指 的 一 段 图 形 
数据 一 到 $800 开 始 的 内 存单 元 中 


设置 可 用 内 存单 元 的 最 低地 址 以 及 
图 形 表 的 首 地 址 


进入 文本 方式 , 清 屏 医 


鲁 
提 
峙 
遍 


@ 
一 下 ce 一 
N 调整 位 置 进入 文本 方式 清 屏幕 


一 一 一 天 从 秆 奖 上 各 


| 权 | 
一 一 和 他 可 一 


Y 
清 屏幕 ,进入 文本 方式 


Qg 


格 键 蚂 7 一 


GOSUB SUB2 


打印 此 游戏 的 说 明 书 
RE 
一 
键盘 选 通 


@ 


< 一 是 空 
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174 


进入 文本 方式 , 清 屏幕 ,调整 位 置 


清 内 存 变量 ,删除 0-999 行 语句 


变量 赋 初 值 ,设置 图 形 方式 


设置 放大 系数 , 开辟 数组 , 清 屏 


清高 分 辨 率 图 形 区 ,HIl,HP 计 算 线 条 
的 起 始 位 置 ,FL 作 线条 ,COLOR 置 颜色 
值 , 画 出 保龄球 场 


GOSUB SUB3 


赋 图 形 表 中 图 形 号 初 值 , 图 形 显 示 的 
位 置 值 Hx: 作 图 


在 X0,Y0 位 置 上 作出 图 形 号 为 6 的 图 形 


清 屏 , 置 图 形 显示 方式 


< 一 一 司 为 空 人 > 


COSUB SUB4 


2 
或 者 F>9 吗 ? 键盘 选 通 ,调整 位 置 
调整 光标 位 置 
2 YY 「 要 玩 相同 的 游戏 吗 ?: AS 
RND(SP+ST+SV+2)? ?: 
Y 
N 
OP0 -PDT 
(0)/10 OR OP1<>PDL 
(1)/10? < 一 GD 
00SUB SUB5 Y 
光标 定位 至 21 行 
清 底 四 行 ;CALL-958 


进入 文本 方式 ,光标 


定位 至 21 行 , 清 底 四 | | 是 同一 游戏 者 吗 ?A$ 
行 ,调整 位 置 
控制 球 移动 到 放 保 龄 球 的 地 方 


[am < 向 
GO0SUB SUB6 N 
N 
< 一 KR 7 一 


四 四 四 下 四 


4 
175 


四 


调 出 图 号 为 2 的 图 形 ,确定 位 置 
末 出 图 形 


DP0=PDL(O)/10 
AND OP1=PDL 


(1L)V10? 


COSUB SUB5 


变量 E,F, SP,T, ST, Sv 赋 值 零 
GOSUB SUB4 


OPO 帮 PDL(O)V10 OR 
OP1 夺 PDL(1)V10? 


GO0SUB SUB5 


隐 纵 杆 高 地 址 单元 >12 
生 
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N 
控制 球 前 进 的 距离 
汪 


一 NOT 二 -一 


X0 赋 值 , 画 出 图 形 


A.8 保龄球 游戏 子 程序 框图 


SUB1 


设置 反 相 显示 方式 ,进入 文本 , 清 屏 
打印 BOWLING 形 状 和 游戏 题目 
设置 正常 显示 方式 


RETURN 
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画 出 图 形 , 计算 Xo,Yo 的 值 


SUB2 


进入 文本 方式 , 清 屏 , 设 置 反 相 显示 方式 


SUB3 
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SET(L) 赋 逻辑 值 


计算 起 始 位 置 


| 站 人) 


| GosUB SUB8 


| xyY, ] 赋 值 


1=69 “45 Se 


X0Y0 赋 值 ,确定 起 始点 坐标 ,颜色 赋值 ,作出 图 形 


< 


< 一 sp? 


Y 
N 
Y 
N J=j+1 
冯 
N 


X0,Y0 赋 值 , 计 算 起 始点 位 置 ,X0 再 赋值 


( 
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PINCK)=1 


COLR 赋 值 , 删 除 线条 


Y0, COLR 赋 值 , 删 除 


调 出 图 形 号 为 2 的 图 形 ,X0,Y0 赋 值 作出 图 形 


X0 赋 值 , 画 出 图 形 


RETURN 
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SUB4 


设置 图 形 或 文本 显示 方式 ， 
调用 反 相 显示 程序 ; CALL-384 


设置 底 四 行 屏 宽 
N=N+1; 调整 光标 位 置 


打印 :BOWLER 


设置 混合 显示 方式 


中 


SUB5 


S1, S2, S3 赋 值 


”COLR,X0yY0 赋 值 , 确 定 起 始点 位 置 
Y0 赋 值 ， 画 出 线条 


xX0 赋 值 ,确定 起 始点 位 置 ,Y0 赋 值 ， 
画 出 线条 


xX0,Y0, COLR 赋 值 ,确定 起 始点 位 置 
X0 赋 值 , 画 出 线条 


x0 赋 值 ， 画 出 线条 , X0 赋 值 , 确 定 
起 始点 位 置 


COLR 赋 值 , 画 出 线条 ,Xx0 赋 值 , 确 定 
起 始 位 置 ,Xo 赋 值 画 线 条 


OP0,0P1l, COLR,Y0, X0 赋 值 


RETURN 


XK3S>X 


+72: 


调 出 第 7 号 图 形 , X0,Y0 
赋值 , 画 出 图 形 ,6 赋值 


@| @ 四 olle@ 
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四 


Y 


< 六 


PINCK+1)=19 
AND Z MOD 22 


PINCK+1)=0 


4 19 


调 出 图 形 1 号 ,设置 ROT 
值 ,x0yY0, COLR 赋 值 


OO 
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GOSUB SUB10 


RETURN 
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SUB8 


调 出 第 三 号 图 形 , H 左 值 


< 一 ER)=I 


Y 
H<10 AND SET(CL)3 


N 


COLR, X0y Y0 赋 值 ,确定 起 始点 位 置 
X0; Y0 赋 值 , 夯 线 条 


Xo, Y0 距 值 , 画 出 线条 , xo Yo 赋值 
确定 起 始点 位 置 


X0，Y0 喷 值 , 画 线 条 
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< 一 KGT SET 一 


5UB9 


x0, Y0,COLR 赋 值 ,调用 机 器 语言 
程序 :CALL HD 


Y0, COLR 赋 值 CALL HD 


RETURN 


SUB 10 


< 一 下 107 一 
N 
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A.9 五 子 棋 游戏 程序 框图 


START 


置 高 分 辩 率 文本 ,绘图 及 造型 表 
入 口 地 址 , 赋 初 值 
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SUB 1 


开设 窗口 ,颜色 赋值 
画 出 五 子 棋 棋盘 
打印 作者 姓名 


A.10 计算 机 做 英语 短文 游戏 程序 框图 


START 


清 屏 ,键盘 选 通 , 进 入 文本 方式 


设置 SpEED=255, 清 屏 
显示 一 些 信息 
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输入 形容 词 :AS(1) 


输入 名 词 :C$(I) 


输入 姓名 , 地理 位 置 , 液体 名 称 : 
DS$,E$,F$，C,H9，1$ 


显示 COME ON NOW. ..1y2;3)4 
并 等 待 输入 :N 
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设置 SPEED=255, 清 屏 


| 


显示 COME ON NOWY OR XN 
并 等 待 输入 :Y$ 
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SUB1 


全 


昌 
应 应 应 


0SUB SUB2 


GOSUB SUB2 


CT 赋值 


GOSUB SUB2 


CT 赋值 


GOSUB SUB2 


CT 赋值 


QOSUB SUB2 


CT 赋值 


GOSUB SUB2 
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GOSUB SUB2 


输出 一 些 信息 
所 按 的 键 是 Esc 吗 > ~ 并- | 键盘 选 通 , 清 屏幕 
N 
时 


是 空格 键 吗 ? 
END 


键盘 选 通 , 清 屏 


SUB2 


确定 所 需 打 印字 符 串 cTS 的 起 始 位 置 


忆 


附录 B 实例 游戏 程序 清单 ， 


B.1 七 巧 板 程序 清单 


1 PRINT CHRS (4)"”BLOAD TANGRAM， 
AS6000": POKE 232v,0: POKE 23 
3v,96: SCALE= 1 

2 PRINT CHRS (4)”"BLOAD PICv,AS4 
000” 

5 AQ = 1 

6 GA = 1 

7 POKE -~- 16304,0: POKE - 16299 
“0: POKE -~ 16297,0: POKE - 
16302v0 

8 GET AS 

10 HGR2 

15  HCOLOR= 3 

20 HPLOT 0.0 T0 279v“0 T0 279,140 


T0 0v,1i40 T0 00 TO 1,14 T0 2 
78v1 T0 278,139 TO0 1v,1439 T0 
1v1 


120 IF P= 149 THEN DD = AA:AA = 
AA + 40 - (AA > 258) e 40: ROTe 
0: XDRAW 8 AT DDv172: XDRAW 
8 AT AAv172: POKE - 16368~0 ,= 
:D=D+1l-(D>6): 60T0 ?9 
0 

130 IF P= 207 THEN B1(D) = B1(D 
)- AQ + (Bl(D)“<“ 10): 60T0 
300 

140 IF Pe 208 THEN B1(D) = B1(D 
)+AG - (B1(D) > 250): 6G0T0 
300 

150 IF P = 193 THEN 8B2(D) = 82(D 
)- AQ + (B2(D) <“ 3): 60T0 3 
00 

152 IF Pe= 197 THEN XDRAW 8 AT 
DDv172: FOR ASD = 0 T0 10000 


30 HPLOT 0v1i42 TO0 279,142 TO0 279 : NEXT : RUN 10 


“171 TO 0,1471 TO0 0,142 160 IF P= 218 THEN 8B2(D) = 8B2(D 
40 HPLOT 39v143 TO0 39v171 T0 79， ) + AQG -~ (B2(D) > 150): 60T0 
171 T0 79v,142 TO 119,142 T0 300 
119,171 TO0 159v,171 .TO 159,14 170 IF Pe 141 THEN 8B3(D) = B3(D 
2: HPLOT 199v142 TO0 199v171: )+5- (B3 > 一 255) * 259: 
HPLOT 239v142 T0 239,171: HPLOT POKE -~ 16368v0 
279v142 T0 279,171 180 IF P= 155 THEN TEXT HOME 
50 DIM 8B1(7)vB2(7)v83(7)vS1(7)v，S 3 END 
2(7)v“S3(7) 190 IF Ps 171 THEN AQ AQ + 1: 
60 FOR I=1T0O07: READ B1(I)v82 POKE -~-.16368v,0: 60T0 300 
(I): XDRAW I AT Bl1(I)v8B2(I) : 200 IF Pei1473 THEN AQ = AQ -~- 1: 
NEXT POKE -~ 16368v,0: 60T0 300 
70 DATA 11v125v31v140v81v145v 300 ROT= C: XDRAW E AT ArB: ROT= 
127,138v161v,125v195v125v,261， B3(D): XDRAW D AT B1(D)vB2(D 
145 2?: 6G0T0O 30 
80 D =.1: XDRAW 8 AT 19v, 172:AA = 6000- 08 00 14 00 45 00 93 00 
19 6008- D1 00 0D 01 51 01 93 01 
90 As Bl1(D):B = 82(D):C = 8B3(D): 6010- C5 01 EC 41 92 92 92 92 
E= D:P= PEEK ( - 16384) 6018- 92 92 32 36 36 36 36 36 
93 IF Pm 160 THEN POK = (POK = 6020- 36 36 36 36 20D 2D 20D 2D 
0): POKE - 16368,0 6028- 2D 2D 2D 2D 2D E5 15 1C 
95 GA = AQ 6030- 1C IC 1C 1Cc 1C IC 15 1C 
97 IF POK = 1 THEN POKE -1636 6038- 1C 1C 1C 1C 1C 1C 1 04 
8v“0:AQG = 1 。 6040- 00 00 00 00 00 59 49 49 
98 IF POK = 0 THEN AQ = QA 6048- 49 49 49 49 C9 93 92 92 


100 IF P= 136 THEN DD = AA:AA = 6050- 92 92 92 12 15 CD 72 0E 
AA -40 + (AA < 20) ea 40: ROT= 6058- 0OE 0E 0OE 0OE 0E 0E 05E 0E 
0: XDRAW 8 AT DDv,172: XDRAW 6060- 0OE 8E C1 0E 05E 05E 05 0E 
8 AT AAv172: POKE - 16368,0 6068- 24 24 24 24 24 24 24 24 


:D = D-1+ (D< 2): 60T09 0 6070- 24 24 24 24 24 24 24 24 
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6078- 
6080- 
6088- 
6090- 
6098- 
60AO- 
60A8- 
60B0- 
60B8- 
60C0- 
60C8- 
60D0- 
60D8- 
60E0- 
60E8- 
60F0- 
60OF8- 
6100- 
6108- 
6110- 
6118- 
6120- 
6128- 


61350- 
6138- 
6140- 
6148- 
6150- 
6158- 
6160- 
6168- 
6170- 
6178- 
6180- 
6188- 
6190- 
6198- 
61AO0- 
61A8- 
6180- 
6188- 
61C0- 
61C8- 
61D0- 
61D8- 
61E0- 
61E8- 
4000- 
4008- 
4O10- 
4018- 
4020- 
4028- 
4030- 
4038- 
4040- 
4048- 
4050- 
4058- 
4060- 
4068- 
4070- 
4078- 
4080- 
4088- 


4090- 
4098- 
40AO- 
40A8- 
40B0- 
40B8- 
40C0- 
40C8- 
40D0- 
40D8- 
40E0O- 
40E8- 
40F0- 
40F8- 
4100- 
4108- 
4110- 


“ 委 和 和 四 一 


4120- 
4128- 
4130- 
4138- 
4140- 
4148- 
4150- 
4158- 
4160- 
4168- 
4170- 
4178- 
4180-~ 
4188- 
4190- 
4198- 
41AO 一 
41AB- 
41B0- 
41B8- 
41CO- 
41C8- 
41zD0O- 
41D8- 
4 和 1E0- 
41E8- 
41F0O- 
4 人 1F8- 
4200- 
人 208- 
4210- 
4218- 
4220- 
4228- 
4230- 
4 人 238- 
4240- 
4248- 
4250- 
4258- 
4260- 
4268- 
4270- 
4278- 
4280- 
4288- 
4290- 


44ADO- 
44AB- 
44B0O- 
44B8- 
44C0O- 
44C8- 
44D0- 
44D8- 


44EO- 
44E8- 
44FO- 
44F8- 
4500- 
4508- 
4510- 
4518- 
4520- 
4528- 
4530- 
4538- 
4540- 
4548- 
4550- 
4558- 
4560- 
4568- 
4570- 
4578- 
4580- 
4588- 
4590- 
4598- 
45AO- 
45AB- 
4580- 
45B8- 
45C0- 
45C8- 
45D0O- 
45D8- 
45E0O- 
45E8- 
45F0- 
45F8- 
4600- 
4608- 
4610- 
4618- 
4620- 
4628- 
4630- 
4638- 
4640- 
4648- 
4650- 
4658- 
4660- 
4668- 
4670- 
4678- 
4680- 
4688- 
4690- 
4698- 
46AO- 


46A8B- 
46B0- 
46B8B- 


46C0- 
46C8- 
46D0- 
46D8- 
46E0- 
46E8- 
46F0- 
46F8- 
4700- 
4708- 
4710- 
4718- 
4720- 
4728- 
4730- 
4738- 
4740- 
4748- 
4750- 
4758- 
4760- 
4768- 
4770- 
4778- 
4780- 
4788- 
4790- 
4798- 
47A0- 
人 4 人 7A8B- 
4780- 
4788- 
475C0- 
47C8- 
4700- 
47D8- 
47E0- 
47E8- 
47F0- 
47F8- 
4800- 
4808- 
4810- 
4818- 
4820- 
4828- 
4830- 
4838- 
4840- 
4848- 
4850- 


4858-- 


4860- 
4868- 
4870- 
4878- 
4880- 
4888- 
4890- 
4B98- 
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48AO- 
48AB8- 
4BBO- 
48B8- 
48C0O- 
48C8- 
48D0- 
48D8- 
48E0O- 
4BES8- 
48F0- 
4B8F8- 
4900- 
4908- 
4910- 
4918-~ 
4920- 
4928- 
4930- 
4938- 
4940- 
494B- 
4950- 
4958- 
4960- 
4968- 
4970 一 
4978- 
4980- 
4988 一 
4990- 
4998- 
49AO- 
49A8- 
49B0- 
49B8- 
49C0- 
49C8- 
49D0- 
49D8- 
49E0- 
49E8- 
49F0- 
49F8- 
4A00- 
4AO8B- 
4A10- 
4A18- 
4A20- 
4A2B- 
4ASO- 
4ASB- 
4A4O- 
4A4B- 
4A5SO- 
4A58- 
4A60- 
4A6B- 
4A70- 
4A78- 


4A80- 
4A88- 
4A90- 
4A98- 
4AAO- 
4AAB- 
4ABO- 
4AB8- 
4ACO- 
4AC8B- 
4ADQ- 
4AD8- 
4AEO- 
4AE8- 
4AFO- 
人 AF8- 
4B00- 
4B08- 
4B10- 
4B18- 
4B20- 
4B28- 
4830- 
4B38- 
4B40- 
4B48- 
4850- 
4 人 B58-~ 
4B60- 
4868- 
4B70- 
4B78- 
4880- 
4 人 B88- 
4B90- 
4B98- 
4BAO- 
4BA8- 
4BBO- 
4BB58- 
4BC0O- 
4BC8- 
4BD0- 
4BD8- 
4BE0- 
48E8- 
4BF0- 
4BF8- 
4C00- 
45C08- 
4C10- 
4C18- 
4C20- 
4C28- 
4C30- 
4C38- 
4C40- 
4C48- 
4C50- 
4C58- 


4C60- 
4C68- 
4C70- 
4C78- 
4C80- 
4C88- 
4C90- 
4C98- 
4CAO- 
4CA8- 
4CB0- 
4 人 CB8- 
4CC0- 
4CC8- 
4CD0O- 
4CD8- 
4CEO- 
4 人 CEB- 
4CFO- 
4CF8B- 
4D00- 
4D08- 
4D10- 
4D18- 
4D20- 
4 和 D28- 
4D30- 
4D38- 
4D4^0- 
4D48- 
4D50- 
4D58- 
4D60- 
人 D68- 
4D70- 
4D78- 
4D80- 
4D88- 
4D90- 
4D98- 
4DAO- 
4DAB- 
4DB0O- 
4DB8- 
4DCO- 
4DC8- 
4DD0- 
4DD8- 
4DEO- 
4DE8- 
4DFO- 
4DF8- 
4E00- 
4E08- 
4E10- 
4E18- 
4E20- 
4E28- 
4E30- 
4E38- 
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4E40- 00 
4E48- 7F 
4E50- 00 
4E58- 00 
4E60- 00 
4E68- 00 
4E70- 00 
4E78- 00 
4E80- 00 
4^E88- 00 
4^E90- 00 
4E98- 00 
4EAO- 00 
45A8- 00 
4EB0O- 3F 
4EB8- 34 
4ECO- 00 
4EC8- 30 
4ED0- 00 
4ED8- 00 
4“EE0- 00 
4EE8- 00 
4EF0- 00 
4^EF8- 00 
4^FC0- 00 
4“F08- 00 
4 人 Fi0- 0 
4F18- 3F 
“F20- 50 
“Fr28- 0 
0 了 人 
4F38- 4C 
4<40O- C0 
4^F4B- 00 
^F50- 00 
4^F58- 00 
4F60- 00 
4^F68- 00 
4F70- 00 
4F78- 00 
4F80- 00 
4F88- 00 
4F90- 18 
4F98- 7F 
4FAO- 00 
4FA8- 00 
4FBO- 64 
4F88- 00 
4FCO- 22 
4FC8- 22 
4FD0- 00 
4FD8- 00 
4FE0- 00 
4FE8- 00 
4FF0- 00 
4FF8- 00 
5000- 00 
5008- 00 
5010- 00 
5018- 00 
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5020- 
5028- 
5030- 
5038- 
5040- 
5048- 
5050- 
5058- 
5060- 
5068- 
5070- 
5078- 
5080- 
5088- 
5090- 
5098- 
50AO- 
50OA8- 
5080- 
5088- 
50C0- 
50C8- 
50D0- 
50D8- 
50E0- 
5058- 
50F0- 
50F8- 
5100- 
5108- 
5210- 
5118- 
5120- 
环 生 迟 届 二 
5130- 
5138- 
5140- 
5148- 
5150- 
5158- 
5160- 
5168- 
5170- 
5178- 
5180- 
5188- 
5190- 
5198- 
51A0- 
51A8- 
5180- 
5188- 
51C0- 
51C8- 
51D0- 
51D8- 
51E0- 
51E8- 
SFO-= 
本 下 人 全 = 


00 
00 
00 
00 
00 
00 
3F 
30 
00 
00 
00 
00 
00 
0C 
00 
00 
00 
00 
00 
00 
00 
00 
38 
32 
00 
30 
00 
00 
00 
Q0 
C95 
C0 
C0 
00 
18 
证 
00 
00 
08 
《44 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
18 
01 
00 
00 
74 
00 
22 
22 
00 
00 


53E0- 
53E8- 
53F0- 
53F8- 
5400- 
5408- 
5410- 
5418- 
5420- 
5428- 
5430- 
5438-~ 
5440- 
5448- 
5450- 
5458- 
5460- 
5468- 
5470- 
5478- 
5480- 
5488- 
5490- 
5498- 
54AO- 
54A8-~ 
5490- 
54B8- 
5L90- 
Se<CS- 
54DC- 
54D8- 
5S<E0- 
54EB- 
5S4FO- 
54F8- 
5500- 
5508- 
5510- 
5518- 
5520- 
5528- 
5530- 
5538- 
5540- 
5548- 
5550- 
5558- 
5560- 
5568- 
5570- 
5578- 
5580- 
5588- 
5590- 
5598- 
55AO- 
55A8- 
5580- 
5588- 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
30 
00 
00 
00 
00 
00 
00 
00 
00 
00 
44 
00 
00 
汉 昌 
22 
00 
18 
00 
03 
C5 
00 
00 
00 
00 
00 
00 
06 
00 
60 
“8 
00 
00 
00 
56 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
6 和 
68 
00 
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55C0- 00 
55C8- 00 
55D00- 06 
55D8- 00 
55E0- 00 
55E8- 00 
55F0- 00 
55F8- 00 
5600- 00 
5608- 00 
5610- 00 
5618- 00 
5620- 00 
5628- 00 
5630- 10 
5638- 7E 
5640- 00 
5648- 00 
5650- 00 
5658- 00 
5660- 00 
5668- 00 
5670- 00 
5678- 00 
56480- 00 
5688- 29 
5690- 00 
5398-.00 
56A0、 00 
56A8- 900 
5630-~- 093 
5638- 30 
54cC0- 00 
56C8- 30 
56D0- 00 
560D8- 90 
56E0- 00 
56E8- 00 
56F0- 00 
56F8- 00 
5700- 00 
5708- 00 
5710- 58 
全 《4 
5720- 00- 
5728- 00 
5730- 68 
5738- 60 
5740- 00 
5748- 00 
5750- 00 
5758- 00 
5760- 00 
5768- 00 
5770- 00 
5778- 00 
5780- 00 
5788- 00 
5790- 18 


5798- 01 
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57AO- 
57A8- 
5780- 
5788- 
575C0- 
57C8- 
57D0- 
57D8- 
57E0- 
575E8- 
57F0- 
57F8- 
5800- 
5808- 
5810- 
5818- 
5820- 
5828- 
5830- 
5838- 
5840- 
5848- 
5850- 
5858- 
5860- 
5868- 
5870- 
5878- 
5880- 
5888- 
5890- 
5898- 
58AO- 
58A8- 
5880- 
5888- 
58C0O- 
58C8- 
58D0- 
58D8- 
58E0- 
58E8- 
58F0O- 
58F8- 
5900- 
5908- 
5910- 
5918- 
5920- 
各 引 这 站 一 
5930- 
5938- 
5940- 
5948- 
S 令 3 内 = 
5958- 
5960- 
5968- 
5970- 
5978- 


00 
00 
本 要 
00 
人 
22 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
0D0 


00 
00 


5980- 
5988- 
5990- 
5998- 
59AO- 
59A8- 
598B0- 
59B8- 
学 登记 人 = 
59C8- 
59D0- 
59D8- 
59E0- 
59E8- 
59F0- 
59F8- 
5A00- 
5A08- 
5A10- 
5A18- 
5A20- 
5A28- 
5A3S0O- 
5A38- 
SA4O- 
5A4B- 
5A5SO- 
5AS8- 
5A60- 
5A68- 
本 7 从 = 
5A78-~ 
SAB0O- 
5A88- 
5A90- 
5A98- 
5AAO- 
5AA8- 
5AB0O- 
5AB8- 
5ACO- 
5ACB8B- 
5ADO- 
5AD8- 
5AEO- 
SAE8- 
5AFO- 
5AF8- 
5800- 
5808- 
5810- 
5818- 
5B20- 
5828- 
5830- 
5B38- 
58B40- 
5B48- 
5B50- 
5858- 


00 
00 
00 
00 
00 
60 
4 
00 
00 
00 
7E 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
OF 
30 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
07 
30 
00 
于 和 
00 
00 
00 
00 
00 
00 
00 
00 
5C 
六 下 
00 
00 
78 
20 
00 
00 
00 
00 


5860- 
5868- 
5870- 
5878- 
5880- 
58B88- 
5890- 
5898- 
5BAO- 
SBA8- 
5880- 
5BB88- 
5BCO- 
5B8BC8- 
58D0- 
58D8- 
58E0- 
5BE8- 
SBF0- 
5BF8- 
5C00- 
5C08- 
5C10- 
5C18- 
5C20= 
SC28= 
SC30~ 
5C38- 
5C40- 
5C4 人 8- 
全 起 汪 台 一 
5C58- 
5C60- 
5C68- 
SC7>= 
SC748B= 
5C80- 
5C88- 
5C90- 
5C98- 
5CAC- 
SCA8- 
5CB0- 
5C88- 
5CC0- 
5 人 人 B= 
5CD0- 
5CD8- 
本 和 世人 一 
5CE8- 
当世 站 砧 一 
5CF8- 
5D00- 
5D08- 
5D10- 
5D18- 
5D20- 
5D28- 
5D30- 
5D38- 


00 
00 
00 
00 
00 
00 
18 
01 
00 
00 
42 
7C 
2( 
15 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
18 
00 
00 
00 
00 
00 
00 
00 
00 
00 
78 
00 
00 
00 
00 
00 
18 
00 
7F 
00 
00 
00 
00 
00 
00 
00 
00 
00 
64 
4C 
00 


203 


50D40- 
5D48- 
5D50- 
5058- 
5D60- 
5D68- 
5D70- 
5D78- 
5080- 
5D88- 
5D90- 
5D98- 
5DAO- 
5DA8- 
5DB0- 
5D8B8- 
5DCO- 
5DC8- . 
5DD0- 
5DD8- 
5DEO- 
5DE8- 
5DFO- 
5DF8- 
5E00- 
5E08- 
5E10- 
5E18- 
5SE20- 
5E28- 
5530- 
58538- 
5E4O- 
55E48- 
5E50- 
-5SE58- 
5E60- 
5E68- 
SE70- 
5E78- 
5SE80- 
5E88- 
5SE90- 
5E98- 
5EAO- 


0800- 
0803- 
0806- 
0809- 
0805- 
080F- 
0812- 
0815- 
0818- 
081A- 
081C- 
081E- 
0821- 
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00 
00 
4E 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
60 
02 
00 
00 
00 
02 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
59 
70 
00 
30 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


20 
20 
20 
20 
20 
20 
20 
20 
AS5 
FO 
10 
20 
A9 


00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
01 
00 
00 
00 
00 
00 


00 ! 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
01 
6D 
“0 
00 
00 
00 
00 
00 
00 
00 
00 
00 
OO0 
00 


08 


JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
BEQ 
BPL 
JSR 
LDA 


呈 

m 
Doowcoouwoeoc 
口 o oO cy 吕 


DO cw ro 〇 


S09CE 
SS0835 
S089A 
SO08A9 
SS097A 
SS089A 
SS09A5 
S0920 
SOE 

和 0806 
SS0828 
和 08C9 
才 S7F 


5EA8- 
5580- 
5EB8B8- 
5ECO- 
在 必 于 一 
5ED0O- 
5ED8- 
二 革 扩 和 
5EE8- 
5EFO- 
5EF8- 
5F00- 
5F08- 
5F10- 
5F18- 
5F20- 
5F28- 
SF30- 
5F38- 
5F40- 
5F48- 
5F50- 
5F58- 
5F60- 
5F68- 
5F70-~ 
5F78- 
5F80- 
5F88- 
5F90- 
5F98- 
5FAO- 
5FA8- 
5F80- 
有 和 个 及 = 
SO~ 
5FC8- 
5FD0O- 
5FD8- 
5FE0- 
要 不 萎 让 本 
5FFO- 
5FF&8- 


08235- 
0825- 
0828- 
0828- 
082D- 
082F- 
0832- 
0835- 
0838- 
0838- 
083D- 
083F- 
D841- 


00 
01 
70 
00 
30 
00 
00 
00 
00 
00 
00 
00 
00 
3C 
19 
00 
00 
68 
10 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
18 
01 
00 
00 
22 
00 
00 
00 
00 
00 
00 
00 
00 
00 


STA 
JMP 
JSR 
DEC 
BNE 
JSR 
JNMP 
JSR 
STA 
LDA 
STA 
STA 
STA 


和 0E 
$0806 
$08E0 
SOE 
$0806 
SO8FA 
和 0806 
委 0CC0 
和 SC053 
YSO0 
和 05 
$OFE 
$S06 


0843- 
0845- 
0847- 
0849- 
084B- 
084D- 
084F- 
0851- 
0853- 
0855- 
0857- 
0859- 
0858- 
085C- 
085D- 
085F- 
0861- 
0862- 
0864- 
0866- 
0867- 
0869- 
086(- 
086E- 
0870- 
0872- 
0875- 
0877- 
0878- 
087A- 
0875- 
087F- 
0882- 
0883- 


0885- 
0887- 
088A- 
0888- 
088(- 
088E- 
0890- 
0892- 
0895- 
0896- 
0897- 
0899- 
089A- 
089(C- 
089E- 
08AO- 
08A2- 
08A4- 
08A6- 
08A9- 
08AB- 
08AD- 
08AF- 
0881- 
0883- 
08B5- 
08B6- 
0888- 
08BA- 
088C- 


08 


0B 


16 
17 


17 


16 


0D 


STA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
CLC 
TYA 
ADC 
STA 
INY 
LDA 
STA 
INY 
BNE 
JSR 
LDY 
LDA 
STA 
LDA 
STA 
INY 
BNE 
LDA 
STA 
STA 
TINY 
BNE 


LDA 
STA 
INY 
INY 
CRY 
BNE 
LDA 
STA 
INY 
INY 
BNE 
RTS 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JNMP 
LDA 
BNE 
LDY 
LDA 
CNMP 
BCC 
DEY 
LDA 
LDY 
SBC 
外 PL 


采 08 
SOA 
S0C 
多 SS12 
SS07 
NS13 
S$09 
痢 妥 1 人 
SO0B 
#S15 
$S0D 
#SOO 


#SO1 
(SS08)vY 


彰 有 9F 
(SS08)vY 


S085(C 
SS089A 
SO00 
#S0O0 
(SS06)vY 
S$S0B00vY 
《S08) vY 


$S086E 
#SO0 
S1600,Y 
S1700vY 


SS087(C 


才 SFE 
S1700,Y 


六 有 72 

和 0887 
#S80 
SS1600vY 


SO0892 


$S08 
$S00 
SS09 
$01 
NS8BO 
$02 
SS0DC0 
和 OFE 

和 08C8 
NS6F 
《SS08)vY 
8S9B 
和 08C8 


《SO08) vY 
部 S7[ 
《SS08)vY 
有 和 08C0 


08BE- 
08C0- 
08C2- 
08C4- 
08C6- 
08C8- 
08C9- 
08C8- 
08CD- 
08D0- 
08D3- 


08D6-” 


08D9- 
08DC- 
08DD- 
08DF- 
08E0- 
08E2- 
08E3- 
08E6- 
08E8- 
08EB- 
08EE- 
08F0- 
08F3- 
08F4- 
08F5- 
08F7- 


08F9- 
08FA- 


08FC- 
08FF- 
0901- 
0903- 
0905- 
0908- 
0908B- 
090C- 
090E- 
0910- 
0912- 
0915- 
0916- 
0917- 
0919- 
091C- 
091F- 
0920- 
0922- 
0924- 
0927- 
0929- 
0925- 
092E- 
0930- 
0932- 
0934 一 
09356- 
0937- 
093A- 
093C- 
093F- 
0940- 
0943S- 


18 
10 
16 
11 
147 


16 


16 
27 


本 用 


18 


17 


16 


c0 
CO0 


16 
16 


17 


EOR 
CMP 
BCS 
LDA 
STA 
RTS 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
INY 
BNE 
RTS 
LDY 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
INY 
INY 
CPY 
BNE 


RTS 
LDY 


LDA 
STA 


“LDA 


STA 
STA 
STA 
TITNY 
BNE 
LDY 
LDA 
STA 
INY 
INY 
BNE 
JSR 
STA 
RTS 
LDA 
BNE 
LDA 
BPL 
STA 
LDA 
BNE 
LDA 
STA 
LDY 
CL( 
LDA 
ADC 
STA 
PHA 
LDA 
ADC 


交 SFF 
间 S0B 
有 08C8 
友 SFF 
和 OFE 


放 S72 

《SS08) vv，Y 
有 1800v,Y 
和 1000v，Y 
和 1600，Y 
SS1100vY 
S1700vY 


S08CB 
疼 有 73 


$S1600vY 
S10 
S1600, 必 Y 
S1700vY 
#SOO 
SS1700vY 


间 SO1 
S08E2 


冯 区 72 


S1800v,Y 
($08)vY 
#SO00 

《S06)vY 
和 1700vY 
和 1600，Y 


SO08FC 
音 和 72 
#S80 
S1600vY 


和 0912 
SS0957 
SC010 


和 0E 
S$0979 
SC000 
有 0934 
和 CO010 
和 05 
和 0934 
#S10 
凶 05 
才 S6F 


和 1600,Y 
有 S05 
S1600，Y 


和 1700vY 
NSOO 
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0945- 
0948- 
0949- 
094A- 
094D- 
094E- 
0951- 
0953- 
0955- 
0957- 
0959- 
0958- 
095D- 
095F- 
0961- 
0964- 
0967- 
0968- 
0969- 
096(C- 
096F- 
0971- 
0973- 
0975- 
0977- 
0979- 
097A- 
097C- 
097D- 
097F- 
0982- 
0984- 
0986- 
0989- 
098B- 
098(- 
098D- 
098F- 
0992- 
0994- 
0996- 
0999- 
0998- 
099D- 
099F- 
09A1- 
09Az2- 
09A4- 
09A5- 
09A7- 
09A8- 
O9AA- 
09AC- 
09AD- 
09AF- 
09B1- 
09B82- 
09B4 人 - 
09B6- 
0987- 
09B9- 
09BB- 
098C- 
09BE- 
09C0 一 


99 00 17 


99 00 17 


99 00 16 


99 00 16 
39 00 17 


且 人 从 人 - 广 了 
3939 00 16 


79 00 16 


79 p0 17 


79 00 16 


79 00 17 


STA 
INY 
INY 
STA 
PLA 
STA 
LDA 
CMP 
BNE 
LDY 
LDA 
STA 
LDA 
STA 
STA 
STA 
DEY 
DEY 
STA 
STA 
STA 
LDA 
STA 
LDA 
STA 
RTS 
LDY 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
INY 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
CMP 
BCC 
LDA 
STA 
INY 
BNE 
RTS 
LDA 
PHA 
LDA 
STA 
PLA 
STA 
LDA 
PHA 
LDA 
STA 
PLA 
STA 
LDA 
PHA 
LDA 
STA 
PLA 


S1700vY 


和 1700v。Y 


SS1600vY 
《SS08)vY 
#SAO 
S$0979 

间 有 7 1 

间 S07 
($08)v，Y 
产 S00 
《SS06)vY 
SS1600,Y 
S1700vY 


$1700vY 
$1600vY 
($06)vY 
#S07 
(S08) vY 
wS00 
s05 


NSOO 


(SS06)vY 
$S1600,Y 
《SO0A)vY 
《SS08) vY 
SS1700vY 
《SS0C)vY 


(和 S06)vY 
S1600vY' 
《SOA)vY 
《SS08) 2Y 
有 1700vY 
为 SAO 
SO099F 
##SAO 
《SS0C)vY 


罗 097C 
S06 


SOA 
和 06 


和 DA 
和 07 


有 S08 
有 07 


SS08 
SS08 


SO0C 
S08 


09C1+- 
095C3- 
09C5- 
09C6- 
09C8- 
09CA- 
09CB- 
095cD- 
09CE- 
09D1- 
09D3- 
09D5- 
09D8- 
09DA- 
09D5- 
09DE- 
09E1- 
09E3- 
09E6- 
09E8- 
0D9EB- 


09ED- 
人 全 放下 二 
09F2- 
09F4- 
09F6- 
09F9- 
09F8B- 
09FD- 
0O9FF- 
OAO1- 
OAO3- 
OAO5- 
0OA07- 
OA09- 
DAOA- 
OAOC- 
OAOE- 
OA10- 
OA13- 
OA15- 
OA17- 
OA19- 
OA18- 
OA1E- 
OA20- 
DA22- 
OA25- 
OA26- 
OA28- 
OAZA- 
OA2(C- 
OAZ2F- 
OA3S0- 
OA3S2- 
OA3S3- 
OA3S4- 
OA3S6- 
OA3S7- 
OA38- 
OA39- 


OA3SC- 
OA40- 


36 0A 


20 42 


4D 42 45 52 


FC 


FC 


OA 


OA 


OA 


OA 


OA 


FC 


OA 


OA 


FD 


“4F 


STA 
LDA 
PHA 
LDA 
STA 
PLA 
STA 
RTS 
JSR 
LDA 
STA 
JSR 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDA 


STA 
JSR 
LDA 
STA 
JSR 
LDA 
STA 
STA 
LDX 
DEC 
BNE 
DEC 
BNE 
DEX 
BNE 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
RTS 
LDA 
BEQ 
DRA 
JSR 
INY 
BNE 
INY 
RTS 
ROL 
ROL 
ROL 
ROL 
JSR 


20 2A 2A 2A 8D 8D 


$0C 
S09 


S00D 
S09 


$0D 


有 SFC58 
六 要 0A 
$25 
SFC22 
章 $00 
##S0D 
$24 
SO0A34 
$00 
SO0A35 
SO01 
SOA26 
#S13 


末 24 
SOA26 
间 SOF 
S24 
SOA26 
镍 和 00 
$03 
和 04 
SO06 
和 03 
SOAO1 
和 04 
SOAO1 


SODAO1 
交 S14 
$25 
SFC22 
将 有 02 
有 24 
多 7F 
S32 
SO0A26 
部 有 FF 
SS32 

和 OA26 


(SS00) vv 
和 OAS2 
多 S80 
$FDED 


SOAD26 


凶 OAvX 


S4F42 


00 42 


0A48- 
OA50- 
0A58- 
OA60- 
0A68- 
0A70- 
0A78- 
0A80- 
OA88- 
OA90- 
0A98- 
OAAO- 
OAA8- 
OAB0O- 
OAB8- 
OACO- 
OAC8- 
OADO- 
OAD8- 
OAEO- 
OAE8-~ 
OAFO- 
OAF8- 
0800- 
0808- 
0810- 
0818- 
0820- 
0828- 
0830- 
0838- 
0840- 
08648- 
0850- 
0858- 
0860- 
0868- 
0870- 
0878- 
0880- 
0888- 
0890- 
0898- 
0BA0- 
0BA8- 
0880- 
0888- 
0BC0- 
08C8- 
08D0- 
08D8- 
08E0- 
08E8- 
08F0-~ 
08F8- 
0500- 
0508- 
05C10- 
0C18- 
0520- 
0028- 
0C30- 
0C38- 
0540- 
0C48- 


42 20 
8D 85 
AO (53 
C8 D4 
B9 87 
C1 00 
20 20 
20 20 
20 20 
20 20 
20 20 
20 28 
59 20 
20 52 
20 54 
42 29 
和 全 :可 
80 60 
80 60 
80 60 
80 60 
00 00 
00.00 
F3 06 
F7 06 
FB 05 
FF 04 
FF D0 
FB 03 
F7 04 
了-04 
EF 04 
EB 04 
E5 05 
E8 .06 
EC 06 
FO 07 
57 98 
58 98 
5D 95 
59 94 
57 92 
54 94 
54 98 
50 98 
4 人 D 59A 
50 9E 
54 9E 
58 9%E 
5C5C 9E 
60 9E 
63 9A 
5F 98 
5F 95 
63 95 
02 02 
82 82 
02 02 
82 82 
02 02 
82 82 
02 02 
82 82 
2A 2A 
AA AA 


0C50- 
0558- 
0C60- 
0C68- 
0C70- 
0C78- 
0C80- 
0C88- 
0C90- 
0598- 
0CAO- 
0OCAB8- 
05C80- 
0CB88- 
0CC0- 
0CC8- 
0CD0- 
0CD8- 
0CE0- 
0CE8- 
0CF0- 
0OCF8- 
0D00- 
0D08- 
0D10- 
0D18- 
0020- 
0DD28- 
0D30- 
0D38- 
0D40- 
0D48-， 
0D50- 
0D58- 
0D60- 
0D68- 
0D70- 
0D78- 
0D80-~ 
0D88- 
0D90- 
0D98- 
0ODAO- 
ODAB- 
0D80- 
0D88- 
0D5C0- 
0DC8- 
0DD0- 
0DD8- 
0DE0- 
0DE8- 
0DF0- 
0DF8- 
0E00- 
0E08- 
0E10- 
0E18- 
0E20- 
0E28- 
0E30- 
0E38- 
0OE40- 
0E48- 
0E50- 


1248- 00 00 00 00 00 0 12E8- F3 14 42 20 62 2E 29 59 
1250- 00 00 00 8 00 四 68 00 12F0- AB 8D 40 E5 8B8 A6 4A 23 
1258- 00 00 00 00 00 00 00 00 12F8- AF 30 C1 2A SA A7 CD 36 
1260- 00 00 00 00 00 00 00 00 1300- F8 06 F9 06 FA 06 F8 06 


1268- 00 00 1308- FC 06 FD 06 FE 06 FF 06 
1270- 00 80 人 88 98 ED 729 2 1310- 00 06 01 06 02 06 03 05 
1278- CF 85 86 07 6F BA 83 FE 1318- 04 05 05 05 06 05 06 04 
1280- F6 0F 14 66 E3 AD 0C 9%E 1320- 07 03 07 02 07 01 07 00 
1288- 90 AS EA 65 C7 A9 A4 DC 1328- 06 00 05 01 04 02 03 03 
1290- AD DF 21 0C EE 37 CD 3F 1330- 02 04 01 04 00 04 FF 04 
1298- 72 8C 31 90 80 77 FA 89 1338- FE 04 FD 04 FC 04 FB 04 
12A0- 11 98 04 60 D0 98 36 50 1340- FA 04 F9 04 F8 04 F7 04 
12A8- 5SA 73 FO EC 8F EE 64 33 1348- F6 03 F5 03 F4 03 F3 04 
12B0- 41 74 59 CE E8 A7 8B1 64 1350- F2 04 F1 04 F0 05 ED 05 
1288- 93 D2 20 06 DC 78 5F 0D1 1358- EE 05 EF 05 EF 06 F0 06 
12C0- 99 B8 0E 55 42 AA F8 22 1360- F1 06 F2 06 F3 06 F4 06 
12C8- 8B2 88 C5 CD 37 3A 1D 19 1368- F5 06 F6 06 F7 06 F8 AO 
12D0- B2 01 FF 78 83 18 5A D9 1370- F9 AO SA 


12D8- 9C C2 02 2D EF 8B3 EA 05 
12E0- 35 1D E7 C6 51 9F 89 85 


B.3 ” 走 迷 宫 程 序 清单 
由 于 走 迷宫 游戏 的 源 程序 篇 幅 太 长 , 限于 本 书 篇 幅 , 只 能 将 
其 放 在 本 书 所 附 的 盘 片 中 , 此 略 。 


B.4 挖 金 砖 程序 清单 


END 
1 8 RUN :.PRINT CHRS (16): PRINT 
本” 汪 notog99 sont xn -eme 
人 0 游戏 说 明 RETURN 4 
， 、 ”910 IF SCRNC X - 2vyY+ < > 
: ”其 机 双方 加 和 生 汪 由 部 绕 省 二 计生 0 AND WA( .SCRNC X - 2vY - 2) 
荔 戏 者 控 取 一 金 砖 后 会 引起 重心 ” > ua( SCRN(C NX-Y)) THEN RETURN 
不 稳 的 金 砖 圣 落 。" 920 IF SCcrNe x+ ziyY+2) < > 
4 PRINT " 为 了 呈 取 高 分 游戏 者 0 AND WMA( SCQNC X + 2vyY - 2) 
应 该 设法 控 取 能 引起 较 和 多 人 金 砖 附 落 》> wWA( SCRNC XvY)) THEN- RETURN 
的 那 块 砖 ， 而 同时 又 不 使 金山 顶 上 0 
襄 雪 疝 伙 加 得 加 估 公交 玫 郑 轧 浆 革 1010 COLOR= 8: FOR 1 = 0 TO 4: HLIN 
ET AS & 19 -li9+ :AT3S+1I+ YY: 
。 思 从 丰 基 T 这 
2 作用 仙 衣 2 1020 COLOR= 4: FOR I = 8 T0 12: HLIN 
人 16v22 AT I + YY: NEXT 1 
”和 动 二 个 次 位 置 。 由- 光标 向 上 1030 COLOR= 3: HLIN 17,18 AT 9 + 
7 PRINT " 0--- 光 标 向 下 移动 一 个 YY: HLIN 17v18 AT 10 + YY 
块 位 置 " 1035 COLOR=e 14: VLIN 9 + YYv12 + 
_ 上 二 0 YY AT 20: VLIN 9 + YYr12 + YY 
8 Re 光标 向 右 移动 2 
~ 光标 二 1040 COLORe 2: PLOT 20,i1+YY  - 
水 扣 ,er 光标 向 左 移动 1045 (COLORe 6: HLIN 14v24 AT 13 + 
四 攻 YY: VLIN 14 + YYv15 + YY AT 
和 x<-- 控 取 光 标 块 当前 19: VLIN 2 + YYv5 + YY AT 22 


所 在 位 置 处 的 金 砖 ";: GET AS: & 
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1050 


1055 
1090 
1100 
1110 


1120 


1145 


1150 
1160 
1165 


1190 
1200 
1203 
1204 
14205 
1207 
1208 
1209 
1210 


1220 
1230 


1240 
1300 


1310 


1320 
1400 
1410 
1420 
1500 


1505 “ 


1510 


1515 


1520 
1550 


1560 


1570 
1600 
1620 
1630 
1640 


COLORe 15: csOR 1 = 2 T0 4: HLIN 
23v25 AT IJ + YY: NEXT 1 

COLOR= 9: PLOT 24,3 + YY 
RETURN 

REM <TEKI I5> 

COLOR= 5: FCR I = 0 TO 4: HLIN 
19?- 1I,l9+: AT3+1I YY: 
NEXT 工 

COLOR= 5: FOR I = 8 T0 12: HLIN 
416,22 AT I + YY: NEXT I 

COLOR= 6: HLIN 14v24 AT 13 + 
YY: VLIN 14 + YYv15 + YY AT 
19: VLIN 2 + YYv5 + YY AT 22 
COLOR= 5: FOR I = 2 TO0 4: HLIN 
23,25 AT I + YY:I NEXT 1 

COLOR= 0: PLOT 17,7 + YY: PLOT 
21,7 + YY: PLOT 18,8 + YY 

PLOT 20v,8 + YY: PLOT 19,9 + 
YY: PLOT 18,10 + YY: PLOT 20 
v10 + YY: PLOT 17v141 + YY: PLOT 
2lv1l1 + YY 

RETURN 

REM <<KESI>> 
S== SCRNC XrY) 

IFT= 1 THEN 1208 
GP = 6GP + PR(S) 

G0SUB 15900 “ 
COLOR= 0 

POKE 781,18: CALL 768 

FOR I = 0 TO 1: HLIN X ~- 1v 
Xe4a1ATI4Y: NEXT I 

IF KE > 36 THEN 1240 

KE = KE + 3: COLOR= S: HLIN 

KE - 2,KE AT 38: HLIN KE - 2 
zKE AT 39 

RETURN 

IFX-2> 0 THEN SCP) = 
X- 2:PePY+Y 1 

IFX+2< =39 THEN SCP) = 

训 证 二 人 和 人 

RETURN 

FOR LZ2 =0 TO0P- 1 

SS(L2) = SC(L2): NEXT L2 

PS = P: RETURN 

D0 = 0 


IF TX < 4 THEN 1550 
IF SCRNC TX - 2vTY -~ 2) 
0 THEN 1550 


IF SCRNC TX - 4,TY) < > 0 
AND WA( SCRNC TX - 4vTY - 
))》 > WA( SCRNC TX -~- 2vTY - 2 
))》 THEN 1550 
D0 = 1: RETURN 

IF SCRNC TX + 2vTY - 2) = 
0 THEN RETURN 

IF SCRNC TX + 4vTY)“ > 0 
AND WA( SCRNC TX + 4vTY - 《4 
))》 > WA(C SCRNC TX + 2vTY - 2 
)) THEN RETURN 

D0 = 1: RETURN 

REM es TORU MAE 斌 we 

S = SCRNC XvY) 

FOR J==1 TO0 4 

COLORe 9: HLIN X -~- 1,X+ 1 AT 
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Y: HLIN X 一 1 X+4 1 ATY41 

1649  POKE 781,17 

1650 CALL 768 

1660 CULUN= 5: HLIN X -~ 1vX + 1 AT 
Y: HLIN X- 1l1X+1lATY+ 1 

1670 CALL 768 

1675 NEXT J 

1680 RETURN 

1700 REM << IE KAZU >> 

1704 COLOR= 0 

1705 FOR I=01T0 5: HLIN 0v16 AT 
I: NEXT I 

1710 IF IE = 1 THEN RETURN 

1720 FOR J=17T70 IE -1 

1730 X = (Jj- 1) 。 6: 60SU8 790 

1740 NEXT J 

1790 COLOR= 8: PLOT X + 2v0: HLIN 
X+lx+3ATI: HLIN XvX + 
4 AT 2 

1792 (COLOR= 4: FOR 1 = 3 T0 5: HLIN 
X+1xX+ SAT I: NEXT I 

1794 COLORz= 7: PLOT X + 2 

1799 RETURN 

10000 REM << INIT >> 


10010 DIM 5C0(15)vPR(C15)vWA(1I5S) 


10100 FOR I = 0 To 13: READ CO(CI 
): NEXT I 

10102 DATA 2v“13v13,10v10,10v8， 
8 z8Bv4v4vh 4v4 

10105 WA(2) = 2:WAC1I3》 = 5:WA(C10) 
= 4:WACB) = 3:WA(C4) 1:UA( 


0) = 0 
10110 PR(2) = 5:PR(13) 3:PR(C10) 
= 2:PR(8) = 1:PRC4) = 0 


10120 FOR I = 0 1T0 46: READ J: POKE 
768 + IvJ: NEXT 1 
10130 DATA- 169v1v133v16,1469v，0， 


133v，17v169v140v,133，18,164v7 
“173v48v,192,152v170,202v208， 
253 
10132 DATA 
6 本 
“152,170v,202v 
“253v136v196v17v208,243v1 
98v,16,208,222,96 


200v,196v18,208,243v1 
5v18v173v 以 8v192 
208 


11900 PO 0 
11910 IE = 3:TI = 0 


12000 REM << INIT YAMA >> 

12005 : GR : HOME 

12006 60SUB 15900 

12010 FOR Y = 1 T0 10 

12020 X = (10 - Y) as 2 

12030 FOR IJ = 1 TO Y: COLORz= C0f 曙 
INT ( RND (14) -em 144)) 

12040 HLIN XXX+ 2 ATYea 2 + 14 

12050 HLIN XrX+ 2 AT Ye 2 + 19 
:XeX+ 4 NEXT 1 

12060 NEXT Y 


12070 60SUB 1700 

13000 REM << INPUT >> 
13005 YY = 0: 60SUB 1000 
13010 IX = 19:IY = 38 
13020 60SUB 13900 


13800 
13820 
13840 
13860 
13100 


13030 K = PEEK ( ~- 16384) : 

128 THEN 13020 
13035  POKE - 16368,0 
13040 IF K = 213 THEN 
13042 IF K = 196 THEN 
13044 IF K = 136 THEN 
13046 IF KK = 149 THEN 
13048 IF K = 216 THEN 
13050 60T0 13020 
13100 IF 

13020 


13110 X = IX:Y = TIY 
13120 60SU8 13700 
13130 PO = PO - 1: 


SCRN(C IXvIY) = 0 THEN 


IF PO < 0 THEN 


IF K < 14060 X = 


PO = 0 
13140 60SUB 15900 
13200 60T0 14000 
13700 REM es INPUT wy 
13710 RETURN 
13800 IF IY > 17 THEN IY = IY - 
2 
13810 60T0 13020 
13820 IF IY< = 36 THEN IY = IY 
+ 2 
13830 60T0 13020 
13840 IF IX > = 3 也 THEN IX = IX - 
2 
13850 60T0 13020 
13860 IF IJX< = 35 THEN IX = IX 
+ 2 
13870 60T0 13020 
13900 S1 = SCRNC IX -~ 1vIY):S2 = 
SCRN(C IXvIY):S3 = SCRNC ITX 
+ 1vIY) 
13910 COLOR= 9: HLIN IX - 1v,IX + 
1 AT IY: HLIN IX -~ 1v,IX + 1 AT 
了 和 二 设 
13920 FOR I1 = 1 TO0 30: NEXT I 
13930 COLOR= S1: VLIN IYvIY + 
和 半 一 全 
13932 COLOR= S2: VLIN IYvIY + 
了 X 
13933 COLOR= S3: VLIN IYvIY + 
IX + 1 
13950 RETURN 
14000 REM “<<“ KESI >> 
14001 KE = 0 
14002 T = 0 
14003 GP = 0 
14004 6G0SU8 ,1600 
14005 P = 0 
1+4010 60SUB 1200: 60SUB 1300: 
14020 60SU8 1400 
14030 Y = Y - 2 
14034 IFT=1l AND Y = 14 THEN 1 
9009 
14035 IFY = 14 THEN 18000 
14040 IF P = 0 THEN 15000 
14045 P = 0 
14050 FOR L1 = 0 T0 PS - 1 


SS(L1): 


6G0SU8 900 


14070 IF D0= 1 THEN 605SU8 1200 
:3 60SU8 1300 

14080 NEXT L1 

14090 60T0 14020 

15000 REM << POINT >> 

15015 IF GP = 0 THEN 15100 

15020 IF GP > = 20 THEN GP =-GP 
s 4 60T0 15030 

15022 IF GP > = 15 THEN GP = 6GP 
es 3: 60T0 15030 

15024 IF GP > = 10 THEN 6P = GP 
s 2: 60T0 15030 

15026 IF GP 《< 10 THEN 15040 

15030 VTAB 21: HTAB 10: FLASH : PRINT 
”BONUS 1 

15032 FOR IJ = 1 T0 3000: NEXT I 

15035 605SU8 15900 

15036 FOR I = 1 TO 3000” MEXT 1 

15040 IF GP >9 THEN GP = GP - 1 


0:PO = PO + 10: 


G0T0 15045 


15041 GP = GP - 1:PO = PO + 1 


15045 60SUB 15900 
15050 CALL 768 
15060 IF GP > 0 THEN 15040 
15100 COLOR= 0 
15110 FOR I = 38 T0 39: HLIN 0v3 
9 AT TI: NEXT I 
15800 60T0 16000 
15900 REM POINT 
15910 HOME : IF GP = 0 THEN PRINT 


: 60T0 15920 


15913 PRINT "aiGPi 00a" 
15920 PRINT 
15925 INVERSE 3 PRINT ” ”1 


15926 IF PO <“ 10 THEN PRINT “0” 


和 
15927 IF PO < 100 THEN 


PRINT PO7 ”00 ” 


15930 
15935 NORMAL 
15940 RETURN 
16000 ”REN 
16001 T = 1 
16003 YY = 0 
16004 X = 19:Y = 3 
16005 IF DE = 1 THEN 
: 60T0 16010 
16006 .60SUB 1100 
16010 TX = 39:TY = 34 
16020 IF TX《 
2:TX = 37- 
16030 IF TY = 


16040 TX = TX - 2 


PRINT ”0 


<< TEKI KESI >> 


60SU8 1000 


= 1 THEN TY = TY - 


18 THEN 19000 


16050 IF SCRNC TXvTY) = 0 THEN 
16020 

16060 60SUB 1500 

16070 IF D0 = 1 THEN 16020 


16080 X = TXIY = TY 
16090 60SU8 1600 
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16100 60SUB 1200 YY + 16 
17000 RENM 149020 HLIN 14v25 AT I: NEXT I 
17004 I = 60 19030 YY = YY+YYIY=-Y+ 1: 60SU8 
17005 Il IT ~ 1】 1100 
17006 Km PEEK ( -~- ?16384) 19040 FOR I =1 T0 10:K = PEEK 
17007 IF DE 1 AND K = ASC (”S 《~ 16336); NEXT 工 
”) + 128 THEN 21050 19050 IF YY 《< 21 THEN 19010 
17008 IF I > 0 THEN 17005 19053 60SUB 18900 
17010 COLORe 0: FOR 1 = 38 T0 39 19055 60SUB 18899:C = 5:X = 27:Y 
: HLIN 0v,39 AT I: NEXT II = 10: 60SUB 18890:X = 8:Y = 
17100 60T0 13000 10: 60SUB 18893:X = 12:Y = 2 
148000 REN << IE KUZUSHI >> 1: 60SUB 18896 
18001 Y = 0 19060 60SUB 18900 
18010 COLORe 0: FOR I YY+ 2 1T0 19070 60T0 20020 
YY + 16 20001 IE = IE -~ 1 
18020 HLIN 14v,25 AT I: NEXT I 20010 IF IE< = 0 THEN 20100 
18030 YY eeYY+ YIYeY+ 1: 60SU8 20020 60T0 12000 
1000 20100 HOME : PRINT "<< 也 FINAL SC 
18040 60SUB 18950 ORE -~- “iiPOI”00 >>>” 
18050 IF YY< 21 THEN 18010 20110 FOR I = 1 TO 5000: NEXT 1 
18060 60SUB 18900 20120 TEXT : HOME 
18070 60SUB 18899:C = 8:X = 6:Y = 
15: 60SUB 18890:C = 15:X = 2 
5:Y 7: 60SUB 18893: 
18075 COLOR= 9: PLOT 27v9 
18080 C = 4:XM 20:Y = 23: 60SUB 
18896 
18085 COLORe 7: HLIN X+ 2rX+ 3 
ATY+ 1I: HLIN X+ 2vX + 3 AT 
Y+2:I HLIN X+ 1,XY+Y 3 AT Y 
+ 4: HLIN X+Y 1vX+ 3 AT Y + 
5 
18090 60SU8 18900 
18200 60T0 20001 
18800 REM es IE TOBI w 斌 
18890 REM YANE 
18891 COLOR= 6C: FOR I = 9 70 4: VLIN 
YIiY+YIATXA+Y I: NEXT I 
3: RETURN 
18893 REM HATA 
18894 COLORz= 5C: FOR 1 = 0 T0.3: HLIN 
X+yix+3ATYA4I: NEXT 1 
: PLOT XvY: RETURN 
18896 REM IE 
18897 COLORe C: FOR 1 = 0 TO 4: VLIN 
YY+6ATXY+Y I: NEXT I: RETURN 
18899 COLORe 0: FOR I = 23 T0 39 
2 HLIN 15v25 AT TI: NEXT TI: RETURN 
18900 FOR IJ = 1 T0 3: 60SUB 1895 
0: NEXT TI: RETURN 
18950 REN 
18955  POKE ~- 16303v,0 
18960 CALL 768 
18970 POkE - 16304v0 
18975 CALL 768: 
18980 RETURN 
19000 REM << TEKI KUZUSHI >> 
19002 X = 19:Y = 20: 60T0 14004 
19009 Y = 0 
19010 COLORm= 0: FOR Il = YY + 2 T0 
2 


B.S 金 叶 古 塔 搬移 的 程序 清单 


10 CALL 5576: VTAB 6: HTAB 15: PRINT 

20 .FOR I= 1 T0 500:2 = PEEK ( - 
16384): IF 2 > 128 THEN 40 

30 NEXT 1 

40 IFZIZ< >155 THEN 90 

50 2 = PEEK (49168) 

60 CALL 5576: VTAB 6: HTAB 7: PRI 


NT “结束 此 游戏 吗 ? (Y/N)";: GET AS 
70 IF AS ="Y” THEN CALL 5576: 
80 IF AS < > "N THEN 60 

90 2 = PEEK (49168) 

100 CALL 5576:VTAB 6: HTAB 6: PR 
INT "要 看 说 明了 吗 ? (CY/N)"; : 6E 
T AS 


END 


110 IF AS = "N"” THEMN CALL 5576: 
G0T0 180 

1420 IF As < > "Y" THEN 100 

130 ”CALL 5576: VTAB 1: HTAB 11: 

PRINT "使 用 上 明 ": VTAB 2: HTAB 


说 
4: PRINT “ 匠 塔 作为 一 个 智力 游戏 ， 
有 助 于 你 ": VTAB8 3: HTAB 4: PRINT 
“对 递归 概念 的 理解 。 它 是 一 种 用 同 " 
140 VTAB 4: HTAB 4: PRINT "一 方 
法 在 不 同 层次 上 反复 使 用 的 解 ": VTAB 
5: HTAB4: PRINT“ 决 问题 的 方法 。 
苛 塔 由 三 个 塔 柱 和 ” 
150  VTAB 6: HTAB 4 人: PRINT "若干 片 
在 塔 柱 上 从 小 到 大 上 吹 序 堆 ": VTAB 7: 
HTA8 4: PRINT“ 放 起 来 的 培 盘 组 成 。 
本 东 戏 要 求 你 ” 
160 VTAB 8: HTAB 4: PRINT "把 塔 盘 
从 一 个 塔 柱 援 到 另 一 个 塔 ": VTAB 9: 
HTAB 4: PRINT “" 柱 ， 在 每 个 塔 柱 上 培 盘 
堆放 都 必须 ": VvTAB 10: HTAB 4: PRINT 
“是 从 小 到 大 ， 小 的 在 上 面 ， 大 的 在 下 
170 VTA8 11: HTAB 4: PRINT “而 且 每 
次 至 多 只 能 搬 动 一 个 塔 盘 。"“;: GET As 


180 TRYS = - 1:FIRSTTIME = 0 

190 FORI = 11T08:TWI,I) = 0: READ 
TW(2vI):TWC3vI) = 0: NEXT I 

200 RESTORE 

210 DATA 8,12v,16,20v24,28732v,36 

220 PRINT CHRS (1): CALL 5576: 

PRINT CHRS (^)"BLOAD TOWER": VTA 


B 12: HTAB 1: PRINT “ 按 EC 键 退 


出 此 藻 戏 。”; 

230 TRYS = TRYS + 1 

240 60SuU8B 820 

250 VTAB 1: HTA8 1: PRINT “将 星 
号 置 于 弘 移 动 塔 盘 的 柱 上 ，. 然 后 按 RET 
URN 键 。“: VTAB 2: HTAB 15: PRINT 
”已 经 移动 了 “TRYS;I ”次 ": IF TRY 
S THEN 300 

260 IF FIRSTTIME THEN 300 

270 VTAB 3: HTAB 5: PRINT “ 斌 训 ") 
280 FIKSTTIME = 1 


z90 X = P0S (0)@ 1:N = X 
300 2 = PEEK (49168) 
310 2 = PEEK (49152): IF 2 < 128 


320 


330 


340 
350 


360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
《60 
470 


480 
490 
500 


号 置 


IHEN 310 
IF Z = 149 THENN = X+ 11: 60T0 
370 
IF Z = 136 THENN = MX - 11: 60T0 
370 
IF Z = 141 THEN 420 
IF Z = 155 THEN HGR : CALL 
6700: 60T0 50 
G0TO 300 
IFN<5 THENN = 5 


IF N > 27 THEN N = 27 
VTAB 3: HTAB X: PRINT ” 
VTAB 了 3: HTAB N: PRINT … 斌 生 ) 
G0T0 290 


IFN=5 THEN PL = 1 
IFN = 16 THEN PL = 2 
FN=27 THEN PL = 3 
F HOLD THEN 520 
FOR DkK = 1 T0 8 
IF TWMCPL,DK) THEN HOLD = TMW( 
PLv,DK):H1 = PL:H2 = DK: 60T0 
500 
NEXT DK 
60T0 620 
VTAB 1: HTAB 1: PRINT “将 是 
区 后 是 可 这 入 的 柱 十 然后 和 污 RET 


URN 

510 60T0 360 

520 -FCR De 1 TO 8 

530 IF Tw(pLvDK)》 7HEN 560 

5<c0 NESXT DX 

550 6G6070 580 

560 IF TWCPLvDK) > HDLD THEN TU( 
PLvDOK ~ :7 一 HOLD: 607T0 590 

570 GOT0 620 

580 TW(PLvIDK -~- 1) = HOLD 

590 HOLD = 0:TW(CH1,H2) = 0 

600 60SUB 640 

610 60T0 2350 

620 SPEED= 200: FOR 1 = 1 T0 3: 

VTAB 1: HTAB 1: PRINT "” 了 

法 移动 ， 请 重新 做 ! 

”: VTAB 1: HTAB 1: PRINT ” 
”: NEXT TI: SPEED= 255:HOLD 

630 60T0 240 

640  HCOLORz 0:A aa 59 + (H2 -~- 1) >* 
15:G6 = H1: 60SU8 730 

680  HCOLOR>= 3:A > 59 + (DK - 2) * 
145:6 > PL: G0SUB 730 

720 RETURN 

730 FOR 1 0 TO 9 

740 HPLOT 36+ (GE -1) 90vA + 
1 TO 364+4.(G -1) sa 90 - TW 
PLv,DK - 1),A + I: HPLOT 50 + 
(G-1)ea 9o0A+I TO 50+ (人 
G~ 1》 ss 90 + TUCPLDK = 1)7> 
遇 ,- 李 、\ 攻 

750 NEXT LI: RETURN 
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820 C1 = 0:C2 = 0 
830 FOR LP= 1 7T0 8 
840 IF TWC1I,LP) THEN C1 
850 IF TM(C3SLP) THEN 5C2 
860 NEXT LP 
8B70 IF CI1= 80R CC2 = 8 THEN 890 
880 RETURN 
890  VTAB 1: HTAB 1: PRINT ” 

你 一 共 移 动 了 “;TRYS; ”次 。 


时 和 


Cl 1 
人 人 Fi 环 ( 要 


900 FOR I 1T0 1000: NEXT I: HGR 
: CALL 5576: END 
2000- 00 00 00 00 00 00 00 00 
2008- 00 00 00 00 00 00 00 00 
2010- 00 00 00 00 00 00 00 00 
2018- 00 00 00 00 00 00 00 00 
2020- 00 00 00 00 00 00 00 00 
2028- 00 00 00 00 00 60 07 00 
2030- 00 00 00 00 00 00 00 00 
2038-~- 40 7F 61 07 7F 03 00 00 
2040- 00 00 00 00 00 00 00 70 
2048- 03 00 00 00 00 00 00 00 
2050- 00 00 00 00 00 60 07 00 
2058- 00 00 00 00 00 00 70 7F 
2060- 7F 7F 61 07 7F 7F 7F OF 
2068- 00 00 00 00 00 00 00 70 
2070- 03 00 00 00 00 00 00 00 
2078- 00 00 00 00 00 00 00 00 
2080- 00 00 00 00 00 00 00 00 
2088- 00 00 00 00 00 00 00 00 
2090- 00 00 00 00 00 00 00 00 
2098- 00 00 00 00 00 00 00 00 
20A0- 00 00 00 00 00 00 00 00 
20A8- 00 00 00 00 00 60 07 00 
20B0- 00 00 00 00 00 00 00 00 
20B8- 00 00 60 07 00 00 00 00 
20C0- 00 00 00 00 00 00 00 70 
20C8- 03 00 00 00 00 00 00 00 
200D0- 00 00 00 00 00 60 07 00 
200D8- 00 00 00 00 00 00 7F 7F 
20E0- 7F 7F 61 07 7F 7F 7F 7F 
20E8- 00 00 00 00 00 00 00 70 
20F0- 03 00 00 00 00 vo 00 00 
20F8- 00 00 00 00 00 00 00 00 
2100- 00 00 00 00 00 00 00 00 
2108- 00 00 00 00 00 00 00 00 
2110- 00 00 00 00 00 -00 00 00 
2118- 00 00 00 00 00 00 00 00 
2120- 00 00 00 00 00 00 00 00 
2128- 00 00 00 00 00 60 07 00 
2130- 00 00 00 00 00 00 00 00 
2138- 7C 7F 61 07 7F 3F 00 00 
2140- 00 00 00 00 00 00 00 70 
2148- 03 00 00 00 00 00 00 00 
2150- 00 00 00 00 00 60 07 00 
2158- 00 00 00 00 00 00 00 00 
2160- 00 00 60 07 00 00 00 00 
2168- 00 00 00 00 00 00 00 70 
2170- 03 00 00 00 00 00 00 00 
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2178- 
2180- 
2188- 
2190- 
2198- 
21A0O- 
21A8- 
21B0- 
21B88- 
2150- 
21C8- 
21D0- 
21D8- 
21E0- 
21E8- 
21F0- 
21F8- 
2200- 
2208- 
2210- 
2218- 
2220- 
2228- 
2230-~ 
2238- 
2240- 
2248- 
2250- 
2258- 
2260- 
2268- 
2270- 
2278- 
2280- 
2288- 
2290- 
2298- 
22A0- 
22A8- 
22B0-~ 
22B8- 
22C0- 
22C8- 
22D0- 
22D8- 
22E0- 
22E8- 
22F0- 
22F8- 
2300- 
2308- 
2310-~ 
2318- 
2320- 
2328- 
2330- 
2338- 
2340- 
2348- 
2350- 


2358- 
2360- 
2368- 
汪 加 二 
2378- 
2380- 
2388- 
2390- 
2398- 
23AO- 
23AB8- 
2380- 
238B8- 
23C0- 
23C8- 
23DO- 
23D8- 
23E0- 
23E8- 
23F0- 
23FSB= 
2400- 
2408- 
2410- 
2418- 
2420- 
2428- 
2430- 
2438- 
2440- 
2448- 
2450- 
2458- 
2460- 
2468- 
2470- 
2478- 
2480- 
2488- 
2490- 
2498- 
24A0O- 
24A8- 
24B680- 
24B8- 
24C0- 
24C8- 
24D0- 
24D8- 
24E0- 
24E8- 
24F0O- 
24F8- 
2500- 
2508- 
2510- 
2518- 
2520- 
2528- 
2530- 


2538- 
2540- 
2548- 
2550-~ 
2558- 
2560- 
2568- 
2570- 
2578- 
2580- 
2588- 
2590- 
2598- 
25AO- 
25A8- 
2580- 
2588- 
25C0O- 
25CB- 
25D0- 
25D8- 
25E0- 
25E5E8- 
25F0- 
25SF8- 
2600- 
2608- 
2610- 
2618- 
2620- 
2628- 
2630- 
2638- 
2640- 
2648- 
2650- 
2658- 
2660- 
2668- 
2670- 
2678- 
2680- 
2688- 
2690- 
2698- 
26A0- 
26A8- 
26B0- 
2688- 
26C0- 
26C8- 
26D0- 
26D8- 
26E0- 
26E8- 
26F0- 
26F8- 
2700- 
2708- 
是 4 人 = 


7C 
00 
C3 
00 
00 
00 
00 
03 
00 
00 
00 
00 
59 
906 
00 
00 
7F 
00 
03 
00 
00 
7F 
07 
03 
00 
00 
00 
00 
00 
00 
00 
00 
7F 
00 
03 
00 
00 
00 
00 
03 
00 
00 
00 
00 
00 
00 
00 
00 
7F 
00 
03 
00 
00 
7F 
7F 
03 
00 
00 
00 
00 


2718- 00 
2720- 03 
2728- 00 
2730- 00 
2738- 7F 
2740- 00 
2748- 03 
2750- 00 
2758- 00 
2760- 00 
2768- 00 
2770- 00 
2778- 00 
2780- 00 
2788- 00 
2790- 00 
2798- 00 
27A0- 03 
27A8- 00 
278B0- 00 
2788- 7F 
27C0- 00 
27C8- 03 
27D0- 00 
27D8- 00 
27E0- 00 
27E8- 00 
27F0- 00 
27F8- 00 
2800- 00 
2808- 00 
2810- 00 
2818- 00 
2820- 00 
2828- 00 
2830- 00 
2838- 40 
2840- 00 
2848- 03 
2850- 00 
2858- 00 
2860- 00 
2868- 00 
2870- 03 
2878- 00 
2880- 00 
2888- 00 
2890- 00 
2898- 00 
28A0- 00 
28A8- 00 
288B0- 00 
288B8- 7C 
28C0- 00 
28C8- 03 
28D0- 00 
28D8- 00 
28E0- 7F 
28E8- 00 
28F0- 03 
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28F8- 
2900- 
2908- 
2910- 
2918- 
2920- 
2928- 
2930- 
2938- 
2940- 
2948- 
2950- 
2958- 
2960- 
2968- 
2970- 
2978- 
2980- 
2988- 
2990- 
2998- 
29A0- 
29A8- 
29B0- 
29B8- 
29C0- 
29C8- 
29D0- 
29D8- 
29E0- 
29E8- 
党 恒 玫 站 二 
29F8- 
2AO0- 
2AO8- 
2A10- 
2A18- 
2A20- 
2A28- 
2A30- 
2A3S8- 
2A40- 
2A48- 
2A50- 
2A58- 
2A60- 
2A68- 
2A70- 
2A78- 
2A80- 
2A88- 
2A90- 
2A98- 
2AAO- 
2AA8- 
2ABO- 
2AB8- 
2ACO- 
2AC8- 
2ADO- 


2AD8- 
2AEO- 
2AE8- 
2AFO- 
2AF8- 
2800- 
2808- 
2B10- 
2B18- 
2820- 
2828- 
2830- 
2838- 
2B40- 
2848- 
2850- 
2858- 
2B60- 
2B68- 
2B70- 
2878- 
28B80- 
2888- 
2B90- 
2898- 
2BAO- 
2BA8- 
2BB0- 
2BB8- 
28BC0- 
28BC8- 
28BD0- 
28D8- 
2BE0- 
2BE8- 
2BF0- 
2BF8-~ 
2C00- 
2C08- 
2C10- 
2C18- 
2C20- 
2C28- 
2C30- 
2C38- 
2C40- 
2C48- 
2C50- 
2C58- 
2C60- 
2C68- 
2C70- 
2C78- 
2C80- 
2C88- 
2C90- 
2C98- 
2CAO- 
2CA8- 
2CB0- 


2CB8- 
2CC0O- 
2CC8- 
25CD0- 
2CD8- 
2CEO- 
2CE8- 
2CF0O- 
2CF8- 
2000- 
2D08- 
2D10-~ 
2D18-~ 
2D20- 
2D28- 
2D30- 
2D38- 
2D40- 
2D48- 
2D50- 
2D58-~ 
2D60- 
20D68- 
2D70- 
2D78- 
2D80- 
2D88- 
2D90- 
2D98- 
2DAO- 
2DA8- 
2D80- 
2DB88- 
2DCO- 
2DC8- 
2DD0- 
2DD8- 
2DEO- 
2DE8- 
2DFO- 
2DF8- 
2E00- 
2E08- 
2E10- 
字 芷 交 居 二 
2E20- 
2E28- 
2E30- 
党 攻 汉人 二 
2E40- 
2E48- 
2E50- 
2E58-~ 
2E60- 
2E68- 
2E70- 
2E78- 
2E80- 
2E88- 
2E90- 


7C 
00 
03 
00 
00 
7F 
00 
03 
00 
00 
00 
00 
00 
00 
00 
00 
了 C 
00 
03 
00 
00 
00 
00 
03 
00 
00 
00 
00 
00 
00 
00 
00 
季 
00 
0D3 
00 
00 
7F 
07 
03 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
03 
00 
00 
00 
00 
03 
00 
00 
00 
00 
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28E98- 00 
2EAO- 00 
2EA8- 00 
2E80- 00 
2E88- 7F 
2EC0- 00 
2EC8- 03 
2ED0- 00 
2ED8- 00 
2EE0- 7F 
2EE8- 7F 
2EF0- 03 
2EF8- 00 
2F00- 00 
2F08- 00 
2F10- 00 
2F18- 00 
2F20- 03 
2F28- 00 
2F30- 00 
2F38- 00 
2F40- 00 
2F48- 03 
2F50- 00 
2F58- 00 
2F60- 00 
2F68- 00 
2F70- 00 
2F78- 00 
2F80- 00 
2F88- 00 
2F90- 40 
2F98- 00 
2FAO- 03 
2FA8- 00 
2F80- 00 
2FB8- 7F 
2FC0O- 00 
2FC8- 03 
2FD0- 00 
2FD8- 00 
2FE0- 00 
2FE8- 00 
2FF0- 00 
2FF8- 00 
3000- .00 
3008- 00 
3010- 00 
3018- 00 
3020- 00 
3028- 00 
3030- 00 
3038- 40 
3040- 00 
3048- 03 
3050- 00 
3058- 00 
3060- 00 
3068- 00 
3070- 03 
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3078- 
3080- 
3088- 
3090- 
3098- 
30AO- 
3S0A8- 
3080- 
3088- 
30C0- 
30C8- 
3000- 
300D8- 
30E0- 
30E8- 
30F0- 
30F8- 
3100- 
3108- 
3110- 
3118- 
3120- 
3128- 
3130- 
3138- 
3140- 
3148- 
3150- 
3158- 
3160- 
3168- 
3170- 
号 7 昨 一 
3180- 
3188- 
3190- 
3198- 
31AO- 
31A8- 
3180- 
3188- 
31C0- 
315C8- 
31D0- 
31D8- 
31E0- 
31E8- 
31F0- 
31F8- 
3200- 
3208- 
3210- 
3218- 
3220- 
3228- 
3230- 
3238- 
3240- 
3248- 
3250- 


3258- 
3260- 
3268- 
3270- 
3278- 
3280- 
3288- 
3290- 
3298- 
32A0- 
32A8- 
32B0- 
3288- 
32C0- 
32C8- 
32D0- 
32D8- 
32E0- 
32E8- 
32F0- 
32F8- 
.3300- 
3308-~ 
3310- 
3318- 
3320- 
3328- 
3330- 
3338- 
3340- 
3348- 
335S0O-~ 
3358- 
3360- 
3368- 
3370- 
3378- 
3380- 
3388- 
3390- 
3398- 
33AO- 
33A8- 
33B0- 
33B8- 
33C0- 
33C8- 
33D0- 
33D8- 
33E0- 
33E8- 
33F0- 
33F8- 
3400- 
3408- 
3410- 
3418- 
3420- 
3428- 
3430- 


00 
7F 
7F 
03 
00 
00 
00 
00 
00 
00 
00 
00 
7F 
00 
03 
00 
00 
7F 
7F 
03 
00 
00 
00 
00 
00 
03 
00 
00 
00 
00 
03 
00 
00 
00 
00 
00 
00 
00 
00 
40 
00 
03 
00 
0C0 
7F 

CO0 
C3 
00 
cC0 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


3438- 
3440- 
3448- 
3450- 


- 3458- 


3460- 
3468- 
3470- 
3478- 
3480- 
3488- 
3490- 
3498- 
34AO- 
34AB- 
34B0O- 
34B8- 
34C0O- 
34C8- 
34D0O- 
34D8- 
34E0- 
34E8- 
34F0- 
34F8- 
3500- 
3508- 
3510- 
3518- 
3520- 
3528- 
3530- 
3538- 
3540- 
3548- 
3550- 
3558- 
3560- 
3568- 
3570- 
3578- 
3580- 
3588- 
3590- 
3598-~ 
35AO- 
35A8- 
3580- 
35B8- 
35C0- 
35C8- 
35D0- 
35D8- 
35E0- 
35E8- 
35F0O- 
35F8- 
3600- 
3608- 
3610- 


00 
00 
03 
00 
00 
00 
00 
03 
00 
00 
00 
00 
00 
00 
00 
00 
7C 
00 
03 
00 
00 
7F 
00 
03 
00 
00 
900 
00 
00 
00 
00 
00 
00 
00 
03 
00 
00 
7F 
07 
03 
00 
00 
00 
00 
00 
00 
00 
00 
7F 
00 
03 
00 
00 
7F 
07 
03 
00 
00 
00 
00 
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3638= 
3620- 
3628- 
3630- 
3638- 
3640- 
3648- 
3650- 
3658- 
3660- 
3668- 
3670- 
3678- 
3680- 
3688- 
3690- 
3698- 
36A0- 
3S6A8- 
36B0- 
36B8- 
36C0- 
36C8- 
36D0- 
36D8- 
36E0- 
36E8- 
36F0- 
36F8- 
3700- 
3708- 
3710- 
3718- 
2 
3728- 
3730- 
3738= 
3740- 
3748- 
虽 7S 人 一 
3758= 
3760- 
3768- 
3770- 
3778-~ 
3780- 
3788- 
3790- 
3798- 
37AO- 
37A8- 
3780-~ 
37B8- 
37C0O- 
37C8- 
37D0- 
37D8- 
了 7 下 = 
37E8- 
37F0- 
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00 
00 
00 
00 
00 
00 
03 
00 
00 
7F 
了 
03 
00 
00 
00 
00 
00 
00 
00 
00 
7F 
00 
03 
00 
00 
7F 
7F 
03 
00 
00 
00 
00 
00 
03 
00 
00 
00 
00 
03 
00 
00 
00 
00 
00 
00 
00 
00 
40 
00 
03 
00 
00 
7F 
00 
03 
00 
00 
00 
00 
00 


37F8- 
3800- 
3808- 
3810- 
3818- 
3820- 
3828- 
3830- 
3838- 
3840- 
3848- 
3850- 
3858- 
3860- 
3868- 
3870- 
3878- 
3880-~ 
3888- 
3890- 
3898- 
38AO- 
38A8- 
38BO- 
3888- 
38C0- 
人 @ 侍 委 一 
38DO- 
38D8- 
38E0- 
38E8- 
38FO- 
38F8- 
3900-~ 
3908- 
3940-~ 
3918- 
39200= 
53928= 
393O~ 
3938- 
3940- 
3948- 
3950-~ 
3958- 
3960- 
3968- 
3970- 
3978- 
3980- 
3988- 
3990- 
3998- 
39AO- 
39A8- 
398B0- 
3988- 
39C0- 
39C8- 
39D0O- 


co 


7 口 口 口 吕 


?oOmeecli 


00 


Doooboo 


390D8- 
39E0- 
39E8- 
39F0-~ 
39F8- 
3A00- 
3A08- 
3A10- 
3A18- 
3A20- 
3A28- 
3A3S0O- 
3A3S8- 
SA40- 
3A48- 
3A50- 
3SA58- 
3A60- 
SA68- 
3A70- 
3A78- 
3A80- 
3A88- 
3A90- 
SA98- 
SAAO- 
3AAS8-~ 
3ABO- 
3AB8- 
3ACO- 
SAC8B- 
3ADO- 
3AD8- 
SAEO- 
3AE8-~ 
3AFO- 
SAF8- 
3B00- 
3808- 
38B10- 
3B18- 
38B20- 
3828- 
3B30- 
3838- 
3840- 
3848-~ 
38B50- 
3858- 
3860- 
3868- 
3B70- 
3B878-~ 
3B80- 
3888- 
3B90-~ 
3B98- 
3BAO- 
3BA8- 
3B8B0- 


00 
7F 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
40 
7F 
00 
00 
00 
00 
0 
00 
00 
00 
00 
00 
7F 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


-00 


00 
00 
00 
7 
00 
00 
00 
00 


7F 7F 
7F 7F 
00 70 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
07~00 
00 00 
00 00 
00 70 
00 00 
07 00 
7 下 7 
7F1 .9 
00 70 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
07 00 
00 7E 
7F 00 
00 70 
00 00 
07 00 
00 00 
00 00 
00 70 
00 00 
00 00 
07 00 
00 00 
00 00 
00 70 
00 00 
07 00 
00 00 
00 00 


00 70 ' 


00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
07 00 
00 00 
00 00 
00 70 
00 00 
07 00 
70 7F 


3888- 
38BC0- 
3BC8 一 
38BD0- 
3BD8- 
3BE0O- 
3BE8- 
3BF0- 
3BF8- 
3C00- 
3C08- 
3C10- 
3C18- 
3C20- 
3C28- 
3C30- 
3538- 
3C40- 
3C48- 
3C50- 
3C58- 
3C60- 
3C68- 
3C70- 
3C78- 
3C80- 
3C88- 
3C90- 
3C98- 
3CAO- 
3CA8- 
3CB0- 
3C88- 
3CCO- 
3CC8- 
3CD0- 
3CD8- 
3CE0- 
3CE8- 
3CFO- 
3CF8- 
3D00- 
3D08- 
3D10- 
3D18- 
3520- 
3D28- 
3D30- 
3D38- 
3D40- 
3D48- 
3950- 
3258- 
3D60- 
39268- 
3D70- 
3D78- 
3D80- 
3D88- 
3D90- 
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3D98- 
3DAO- 
3DA8- 
3DB0- 
3DB8- 
3DCO- 
3DC8- 
3DD0O- 
3DD8- 
3DEO- 
3DE8- 
3DF0- 
3DF8- 
3E00- 
3E08- 
3E10- 


3E18-. 


3E20- 
3E28- 
3E30- 
3E38- 
3E40- 
3E48- 
3E50- 
3E58- 
3E60- 
3E68- 
3E70- 
3E78- 
3E80- 
3E88- 
3E90- 
3E98- 
3EAO- 
3EA8- 
3EBO- 
3EB8- 
3EC0O- 
3EC8- 
3ED0- 
3ED8- 
3EEO- 
3EES= 
3EFO- 
3EF8- 
3F00- 
3F08- 
3F10- 
3F18- 
3F20- 
3F28- 
3F30- 
3F38- 
3F40- 
SF48- 
3F50 - 
3F58- 
3F60- 
3F68- 
3F70- 
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3F78- 
3F80- 
3F88-~ 
3F90- 
3F98- 
SFAO- 
SFAB- 
3FB0- 
3FB8- 
3FCO- 
3FC8- 
3FD0O- 
3FD8- 
3FEO- 
3FE8- 
3FFO- 
3FF8- 


B.6 ”保龄球 程序 清单 


100 REM DISK VERSION 1/21/79 CRK 212 REM 9900 : END OF GAME 


164 REM THIS PROGRAM REQUIRES THE 284 REM  X 
166 REM PROGRAMMER'"S AID W1 (ROM) 286 REM  X0 
168 REM APPLE PART NUMBER A2M0019 288 REM  Xx1 


PIN COLUMN COUNTER 
HIRES X-COORDINATE 


102 RENM 214 RENM 
103 POKE 66,0: POKE 67,8: POKE 216 RENM <<< VARIABLE USAGE >>> 
62，PEEK (76): POKE 63。，PEEK 218 REN 
(77) 220 RE AS : ALPHA STRING INPUT 
105 POKE 60，PEEK (76): POKE 61 222 REM COLR  : HIRES COLOR VALUE 
”> PEEK (77)-6: CALL -468 224 REM  DX : RELEASE POINT STEP 
106 PRINT ”“” 226 REM 上 E : SCORE TAB VALUE 
108 LOMEM:5000 228 REM 上 3 FRAME COUNTER 
110 POKE 8080: PODKE 809，12 230 REM 6 3 GUTTER FLAG 
112 REN 详 本 家 来 二 训 来 可 来 实 家 来 诡计 来 二 二 二 站 训 证 就 232 REM  H 3: NUMBER OF PINS HIT 
114 RENM =。 宰 234 REM  H1 : FIRST BALL SCORE 
116 REM aa APPLE BOWL = 236 REM  HC :3 HIRES CLEAR 
118 RENM = 妆 238 REM  HD : HIRES DRAW 
120 REM 二 本 本 本 二 让 本 本 本 本 来 来 来 来 磋 详 订 训 本 来 来 闪 训 羡 240 REM HI : HIRES INIT 
122 RENM 242 REM HL : HIRES LINE 
124 RENM 244 REM HP : HIRES PLOT 
126 REM 证 本 本 本 让 阐 则 RITTEN BY 刘 本 刘 本 宣 刺 246 REM  HX 3: HIRES XDRAW 
128 RE 人 主 * 248 REM 工 : FOR/NEXT COUNTER 
130 REM CHARLIE 长 ELLNER 宰 250 REM JJ 3 FOR/NEXT COUNTER 
132 RENM 间 训 252 REM K : PIN MATRIX INDEX 
134 RENM 刘 AND ERIC LARSON 富 254 REM  LL : LANE NUMBER 
136 RENM 春 256 REM  N 3 GAME NUMBER 
138 REM 。 主 三 本 主 斌 NOV 。 197B 斌 着 证 主 主 主 主 258 REM NS 3: PLAYER'7S NAME 
140 RENM 260 REM 0PO : 0LD PDL(0) VALUE 
142 RENM 262 REM 0P1 : OLD PDL(1》〉 VALUE 
144 RENM THIS PROGRAM IS A HIGH 264 REM PIN : PIN MATRIX 
146 RENM RESOLUTION 3-D GRAPHIC 266 REM  ROT : HIRES ROTATION 
148 REM SIMULATION OF BOWLING - 268 REM  S : BALL SPEED 
150 REM 270 REM SCALE : HIRES SCALE FACTOR 
152 REM 。 训 训 刘 束 本 立 吉 本 本 束 家 来 束 二 训 束 刘 束 训 主 宁 训 人 272 REM SET : LANE CYCLE FLAG 
154 REM 二 和 274 REM SHAPE : HIRES SHAPE NUMBER 
156 REM >* NOTES sz 276 REM SP : SPARE FLAG 
158 RENM =* 写 278 REM  ST : STRIKE FLAG 
160 RENM 训 训 磋 二 业 二 训 立 来 来 来 来 守 二 来 训 来 来 二 训 二 本 来 羡 刘 280 RENM SV : STRIKE SAVE FLAG 
162 RENM 282 REM T : TOTAL SCORE 


BALL  X-INCREMENT 


170 REM 290 REM  X2 3 PIN X-POSITION 
172 REM MINIMUM MEHORY (RAM): 16K 292 REM  X3 : BALL  X-POSITION 
174 RENM 294 REM  XP : BALL RELEASE POINT 
176 REM <<< MAJOR PROGRAM AREAS >>> 296 REM YY : PIN ROW COUNTER 
178 RENM 298 REM  Y0 : HIRES Y-COORDINATE 
180 RENM 1100 : PINFALL LOGIC 300 REM 2 : PIN TABLE ENTRY 
182 RENM 1200 : PIN ACTION 302 RENM 

184 RENM 1300 : LANE CYCLE 304 RENM 

186 REM 1400 : PIN SWEEPER 306 REM THESE ARE THE NORMAL USAGES 
188 RENM 1500 : PIN SETTER 308 REM OF THE INDICATED VARIABLES; 
190 REM 1600 : PIN SPOTTER 310 REM HOWEVER， SOME VARIABLES AR 
192 REM 1700 : SCORING 312 REM USED IN SEVERAL ROUTINESITO 
194 REM 2000 : MAIN CONTROL 314 REM CONSERVE MEMORY ALLOCATION. 
196 REM 2100 : BALL MOTION 316 RENM 

198 .RENM 2200 : PLAYER INPUT 318 REM 

200 REN 9000 : INITIALIZATION 320 RENM 二 束 束 二 训 闪 束 本 本 本 杰 直 击 本 详实 本 家 可 声 训 补 产 
202 RENM 93100 : DRAW LANES 322 REM * 二 
204 REM 9200 : DRAW GUTTERS 324.REM ea NOTE: FOR COMPLETE USER * 
206 RENM 9300 : DRAW FEATURES 326 REM ww INSTRUCTIONS IN PRINTED * 
208 RENM 9400 : LANE RESET 328 REM w FORMAT，SIMPLY RUN THIS * 
210 RENM 93500 : TITLE PAGE 330 REM * PROGRAM- 《TEXT FOLLOWS) * 


223 


332 
334 
499 


500 
501 
502 
504 
506 
508 
510 
512 


514 
516 
518 


520 


687 
688 


689 
690 


691 


692 


693 


696 


697 


700 


705 


710 


-101: 


REM 主 生 
REM 刘 机 训 南 来 来 束 露 宙 束 事 束 事 来 束 来 束 来 束 训 来 事 来 束 训 
TEXT CALL -936: IF PEEK (人 


-16287)<128 0R PEEK (-16286 
)<128 THEN 687 


REM  PADDLES NOT PLUGGED IN 
VTAB 6 

PRINT “APPLE BOWL REQUIRES THE.U 
SE OF THE" 

PRINT "APPLE PADDLE SET- PLEASE 
PLUG IN THE" 

PRINT “PADDLE SET AND THE PRESS 
THE SPACE BAR.… 

PRINT : PRINT “IF YOU 59 NGT HaV 
E_ PADDLES，YOU MAY" 

PRINT "EXIT THE GAME BY PRESSING 


THE ESC KEY。” 


Pe PEEK (-16384): IF P<155 THEN 


512 

POKE -16368,0: IF P<>155 THEN 
516: CALL -380: TEXT CALL 
-936: END 


IF PEEK (~16287)>127 AND PEEK 
(-16286)>127 THEN 512 

IF P<>160 THESN 512 

CALL -936: TEXT REN PADDLES 
ARE IN AND SPACE 9AR HAS 3EssN 29 
ESSED- 
GoSuB ?300 
cOSU8B 860 : 


VTABS 2: TA3 120: 
和 必用 3 


0 有 上 L 
PRINT “- -~ -~ = 
PRINT 
PRINT ”<“ BY CHARLZIE KELLNER AND 
ERIC LARSON >” 
PRINT "COPYRIGHT 〈Cc) 
COMPUTER INC” 
PRINT : PRINT "APPLE 
OPYRIGHTED SOFTWARE"”: 
”PRODUCT AND AS SUCH 


12979 APPLE 


BOWL IS A 人 
PRINT 
MAY NOT BE” 


PRINT ”DUPLICATED 0OR 
”PRINT PRINT 

PRINT “COPYRIGHT INFRINGEMENT MA 
Y RESULT IN CIVIL DAMAGES WHETH 


TRANSMITTED 


ER OR NOT A PROFIT MOTIVE IS INV 
OLVED.” 

VTAB 22: PRINT "PRESS THE SPACE 
BAR TO CONTINUE ...…;: POKE 
-163568,，0 

IF PEEK (-16384)<128 THEN 697 


: POKE -16368,0: IF PEEK (- 
16384)H#h3S2 THEN 697 

GO0SUB 860: VTAB 2: TAB 10: PRINT 
人 本 生生 8 0WL": PRINT 


PRINT- "THE APPLE BOWL IS A 3-0， 

HI-RESOLUTIONGRAPHIC SIMULATION 

OF A BOWLING ALLEY.” 

PRINT "THE COMPUTED MOTION 0F TH 
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715 


720 


725 


730 


735 


740 


745 


750 


755 


760 


765 


770 


775 


780 


785 


790 


795 
800 


805 


810 


E_ BALL & PINSIS DERIVED FROM THE 
LAWS OF PHYSICS." 

PRINT ”ALL CONDITIONS NORMALLY 上 E 

NCOUNTERED INBOWLING。，SUCH AS TH 

E_ DIRECTION，SPEED,i 

PRINT "SPIN，AND WEIGHT 0F THE 8 

ALL AND PINS ARE INCLUDED WITH 1 

HE BALL'S POSITION" 

PRINT ”TO REALISTICALLY DETERMIN 
E THE CORRECTFALL OF THE PINS，A 

ND RESULTING SCORE.” 

PRINT "THE BALL CAN BE THROWN FR 

OM ANY POINT ACROSS THE WIDTH OF 
THE BOWLING ALLEY."”; 

PRINT "ITS DIRECTION，SPEED AND 
SPIN ARE SET AT THE MOMENT OF RE 
LEASE BY THE PADDLE"”: 

PRINT "AND PUSHBUTTON CONTROLS ( 
OR JOYSTICK)." 

PRINT "NEED INSTRUCTIONS? (HIT 
Y'， 0OR :NI)。。。"” 

IF PEEK (-16384)<128 THEN 750 

: POKE -16368,0: IF PEEK 〈- 
16384)=78 THEN 999: IF PEEK 
(-16384)#89 THEN 750 

GOSUB 860: VTAB 2: TAB 8: PRINT 
“INSTRUCTIONS": PRIN 


PRINT "THREE LANES ARE SHOWN ON 

YOUR SCREEN。 NOTICE THAT YOU ARE 
(APPROPRIATELY) ON"”; 

PRINT "LANE lt- 0CCASIONALLY Y0 

U MAY NOTICE ACTIVITY ON LUFRNES 1 
AND 1It: DON'T LET"; 

PRINT “THIS CONCERN Y0U; THEY'RE 
ON DIFFERENTTEAMS，AND MON'T AF 
FECT YOUR SCORE. ” 

PRINT “WHEN IT'S YOUR TURN TO 80 

WLy， THE APPLEWILL DISPLAY A SNMAL 

L _ MOVING POINTER AT"; 

PRINT “THE FRONT OF YOUR LAQE . 

THIS WILL BE THE POINT FROM WHI( 

H. THE BALL WILL BE “: 

PRINT ”RELEASED WHEN YOU PRESS 上 
ITHER OF TRE PUSHBUTTONS ON THE 

PADDLE CONTROLS.。 "” 

PRINT "PADDLE 0 CONTROLS THE ANG6 

LE OF RELEASEOF THE BALL (DIRECT 
ION LEFT T0 RIGHT)，"”; 

PRINT "AND PADDLE 1 CONTROLS ITS 
SPEED - 加 

PRINT “MORE INSTRUCTIONS? (HIT ' 
Ya OBE Nee 2 

IF PEEK (-16384)<128 THEN 805 

: POKE -16368v,0: IF PEEK (- 
16384)=78 THEN 999: IF PEEK 
(-16384)#89 THEN 805 

G0SUB 860: VTAB 2: TAB 8: 

“TITNSTRUCTIONS": 


PRINT 
PRINT 


812 


815 


820 


825 


830 


835 


840 


850 


855 


860 


?300 
910 


920 


930 


940 


950 


960 


970 


PRINT "YOUR PADDLE POSITIONS WIL 
L BE SHOWN BYAN INDICATOR AT EAC 
H SIDE OF THE LANE-” 

PRINT “IF YOU USE BUTTON 0 T0 TH 
ROW THE BALLvIT WILL HOOK SLIGHT 
LY TO THE LEFT IF “: 

PRINT “1，IT WILL HOOK TO THE RI 
GHT (THE HOOKIS MORE NOTICEABLE 
AT SLOWER SPEEDS)。” 

PRINT ”THE APPLE KEEPS SCORE AUT 
OMATICALLY。 STRIKES AND SPARES 
(MARKS)》 ARFE ,SCORED “: 

PRINT "BY SIANDARD RULES。 EXTRA 
BALL(S) ARE AWARDED FOR MARKS 工 
N THE TENTH FRAME-。 ” 

PRINT “TO INTERRUPT A GAME BEFOR 
E THE TENTH FRAME，JUST HIT THE 
ESCAPE (ESC) KEY。 ”7 

PRINT “IF YOU DECIDE TO QuIT，Y0 
UR LAST FOUR SCORE SHEETS WILL B 
E DISPLAYED AGAIN。” 
PRINT “READY TO BEGIN ? 
Y' OR 'N')。。。 ”7 

IF PEEK 〈(-16384)<128 THEN 855 
: POKE -16368,0: IF PEEK 〈- 
16384)=89 THEN 999: CALL -380 


《HIT 


昌 


: TEXT : CALL -936: END 

TEXT : CALL -936: CALL -384 

: VTAB 1: FOR I=s1 T0 23: PRINT 

”7 NEXT 1I: POKE 32 

“1: POKE 33v38: RETURN 

REM TITLE 

POKE 50v,63: TEXT : CALL -936 

: TAB 19: PRINT ” ”: TAB 

18: PRINT ” ”: TAB 18: PRINT 

亲 ”: TAB 17: PRINT ” 天 

TAB 17: PRINT ” ”: TAB 

18: PRINT ” ”: TAB 18: PRINT 

辽 和 人 
TAB 19: PRINT ” 相 

TAB 18: PRINT ” ”: TAB 

17: PRINT ” ”: TAB 16 
PRINT ” ”: TAB 15 
PRINT ” -WELCOME- ” 

TAB 14: PRINT ” 9 
TAB 14: PRINT ” APPLE BOWL ” 
TAB 14: PRINT ” 名 
TAB 14: PRINT “$16,384 RE 赤 

TAB 14: PRINT ” 迷 
TAB 14: PRINT ” COMPETITION ” 

: TAB 14: PRINT ” 组 
TAB 15: PRINT ” -=NO PETS=- “ 

TAB 16: PRINT ” 人 和- 半 让 

17: PRINT ” ”: POKBE 50 

z255 

FOR I=1 TO 3000: NEXT I: RETURN 


9399 


1000 
1100 


1120 


1130 


1140 


1150 


1160 


1170 


1180 


1200 
1210 


1220 


1230 


1240 


1250 
1260 
1300 
1310 
1320 


1330 


1340 


TEXT : CALL -936: CALL -380 
: 6G60T0 10000 

6G0T0 9000 

K=Le1l3:H=0: IF G THEN 1180: 


X1z=Xx1/100:XS=X0O:2Z=0 

FOR Yz=1 TO 4:X=Lr93+4:XSXS+ 
X1: JIJF X3S3<X THEN XS=X: IF XS> 
X+72 THEN X3=X+72:SHAPE=7:XOz= 
XS:YO=70-Y*2: CALL HX:G=0 

FOR X=1 TO YIX2e(XS-Le93S+Y 间 
(7+L)-Xsl16-32)13: IF ABS (X2) 
?>3 THEN 1160:S=15-Yz4+X: IF 
PINCK+S)#1 THEN 1160 
Z=3094+((S-(S>6)-2r(S>9))e7 
+X2)ea2:Z= PEEK (2Z)*256+ PEEK 
(Z+l1):I=0: IF G THEN 1150:G= 
1: CALL HX 

IF PINCK+I)=1 AND Z MO0D 2 THEN 
PINCK+I)=0:Z=e2Z/2:I=<I+1: IF 

2Z THEN 1150: 6G0SUB 1200:X1= 


X1+X2: IF Yes4 THEN Z=1 
NEXT X: IF NOT G THEN CALL 
HX: NEXT Y 


SHAPE=1:ROT=16+32z* RND 《2) : 
XO=Le93+ROT+ RND (40):YO=60 
+ RND (6):COLRz=127: IF RND 
(Z+1) THEN CALL HD:ROTe0: RETURN 
FOR I=1 TO 50:Z= PEEK 〈(-16336 

): NEXT TI: RETURN 

REM ACTION 

SHAPE=1: FOR I=4 TO 1 STEP 

-1: FOR J=s4 TO I STEP -1:X0O= 
Le13+Iz3S+J-4: IF PINCXO) THEN 
1240:PINCXO)=-1:H=H+1 
XO=Ler93-(L-1)e=(4-TIT)z3S- 了 TeB+Jz 


16+14:YO=70+I*2-13:COLR=0: CALL 
HD 
COLR=127:YO0=60:XO=Lr83+25: CALL 


HP:XO=XO+65: CALL HL:XO= PEEK 


(-16336)- PEEK 〈-16336)- PEEK 
(-16336)- PEEK (-16336) 

NEXT JvI: FOR I=1 TO 4: FOR 
J=I T0 4: IF PIN(CLr13+Ie3S+J- 
4)<1 THEN 1260:XO= -z93-(L-1 


)*(4-I)*3S-I*r8+Jzl16+14:YO=70 
47e2=15 


COLR=0: IF I>1 THEN CALL HD: 
YO=YO+2:COLR=1l127: CALL HD 
NEXT Jv 工 : RETURN 

RENM 


SETCL)= NOT SET(CL): 
TO0 69:7=Le93+2 
XO=2Z:YO=I: CALL HP:XO=Z+90- 
(Le=2):COLRe127: CALL HL 
YO=Y0-4: IF YO>44 THEN CALL 
HP:XO=IZ:COLR=213: IF YO>44 THEN 
CALL HL 
NEXT I:SHAPE=4:XO=Ler93+46:YO= 


FOR I=45 “ 
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1400 
1410 


1420 


1430 


1500 
1510 


1520 


1530 
1540 


1600 


1610 


1620 


1630 


1640 


1650 


1700 


1710 


1720 


1730 


1740 


12: IF SET(L) THEN CALL HX 

REM CLEAR 

GO0SUB 1600:X=eLa93+2:YeX+90- 
(L=2):J=0: FOR I=69 TO0 45 STEP 
-1:XOmX:YOm1I: CALL HP 
XO=mY:COLRe0O: CALL HL:YO=YO- 

4: IF YO>44 THEN CALL HP:XO= 
X:COLRem1l27: IF YO>44 THEN CALL 
HL 

IF I>59 THEN Je=J+1:XO=X+(2- 
L)eJ-2:YOms1I: CALL HP:XO=Y-Le 


J+1: IF Im60 THEN CALL HL: CALL 
HP: NEXT 了 

REM SET 

SHAPE=1: FOR Im1 TO 4: FOR 

JeI TO 4:KeLrz13+Iz3S+J-4: IF 

NOT SET(L) THEN PINCK)=1: IF 


PINCK)<1 THEN 1540 

XO=Ls93S-(L-1)a(4-I)e3S-Iez8B+Jz 

16+14:YO=55+Is2: IF I<2 THEN 

1530:COLRe0: CALL-HD 

YO=YO+2:COLRe127: CALL HD 

NEXT JvI:SHAPE=2:YO=<S:XO=Lr 

93+10: CALL HXIXO=XO+64: CALL 

HX: FOR I=e1 TO 500: NEXT 1I: 
IF H=10 AND SET(L) THEN 1300 

: RETURN 

REM SPOT 

SHAPE=3:H=10: FOR I=s1 TO 4: 
FOR J=I TO 4:KzsLz13+Iea3+J- 

人 

COLRe127a(SET(L) AND PINCK) 

=1): IF PINCK)=1 THEN H=H-1 

:XO=Lz93-Isa8+Jal6+l4:YO=IzB 

: CALL HD: NEXT JvI 

IF H<10 AND SET(L) THEN 1650 

:COLR=SET(L)*127:X0O=X0-4:YO= 

15: CALL HP:XO=X0+8:YO=YO0-8 
CALL HL 

XO=X0O-8:YO=YO+8: CALL HL:XO= 

X0O+8: CALL HP:XO=X0-8:YO=Y0O- 

8: CALL HL:XO=XO+8:YO=YO+8: 
CALL HL 

FOR I=1 TO 1003_NEXT 1I:SHAPE= 


4:XO=La93+46:YO=12: IF NOT 
SET(L) THEN CALL HX: RETURN 

RENM 

T=T+H: IF NOT ST AND NOT SP THEN 


1720: 60SUB 1780:T=T+H: 
NOT SP THEN TemT+H1 
SPz=0:ST=SV:SV=s0: IF NOT SET 
L)》 THEN 1750 

VTAB 23: TAB E-2: PRINT ”2:” 

7: IF H+H1<10 THEN 1740: PRINT 


IF 


”1/1"13:SPel: IF E=40 THEN E=<42 
GO0T0O 1770 

IF H THEN PRINT H7;: IF NOT 

H THEN PRINT “-"): G0SUB 1780 


: 60T0 1770 
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1750 


1760 
1770 
1780 


2000 


2011 
2020 
2100 


2110 


2120 
2130 


2140 


2260 


2211 


2212 
2220 
2221 


2230 


2240 


2250 


3000 


E=E+1+3Sz(E<40): VTAB 23: TAB 
E-3: IF H<10 THEN 1760: IF 
E<40O THEN PRINT ”<X>”": IF E> 
39 THEN PRINT ” X";:SV=1: 60T0 
1770 

IF H THEN PRINT HI: IF NOT 


H THEN PRINT “-”: 

HiTe=H: RETURN 

Fe=F+1: IF F>10 THEN RETURN 

: VTAB 24: TAB Fr4-3S+(T<10) 

3 PRINT TI: RETURN 

IF PEEK (-16384)=155 0R F>9 
THEN 9900:G=0: IF LN1 0R RND 
(SP+ST+SV+2) THEN 2200:L= RND 
(2)z2 

IF 0PO<> PDL (0)/10 0R 0P1<> 
PDL (1)/10 THEN 60SUB 3000 


XOo=133seL:YO=100:S=-2:X1=( RND 
《200)+150)e(1-L): FOR I=1 T0 
500: NEXT I:X3=0 

REM BALL 
SHAPE=7:ROT=0:X2=XO*100: CALL 
HX: FOR I=158-(58*(Lhi)) TO 
70 STEP S: CALL HX: IF ABS 
(X0-133)+33<I 0OR LW1 THEN 2130 


G=1:X1= SGN (133-XO)e100:X2= 
13300-(1I-33)X1:XO=X2/100 
Xi1=X1+X3S:X2=X2+X1:XO=X217100 
:YO=I: CALL HX 
FOR Jz=1 TO 14: NEXT JITI: CALL 
HX: GO0SUB 4400: FOR I=1 T0 
300: NEXT I: IF L=1 THEN 60Su8 
1700: 60SU8B 1300: 60T0 2000 


IF PEEK (-16287)>127 OR PEEK 
(-16286)>127 THEN 2200:SHAPE= 
2:ROT=32:L=1:72= RND (200)+200 
:XO=XP:YOs156: CALL HX 

IF OPO= PDL 【0)/110 AND 0P1= 
PDL 〈1)/10 THEN 2220 

G0SUB 3000 

X1=63- PDL (0)12:X3=0 
IF 0PO<> PDL (0)/10 0R 0P1<> 
PDL (1)/10 THEN 60SU8 3000 


Se(255- PDL (1))7/86-4:X1=X1r* 
S: IF PEEK (-16287)>127 THEN 
XS=2zseS: IF PEEK (-16286)>127 
THEN X3=-2sS: IF X3 THEN 2250 


XP=XP+DX: IF XP>210 THEN DXj 
-2: IF XP<75 THEN DX=2:2=7- 

1: CALL HX: IF NOT 2 THEN 2000 
:XO=XP; CALL HX: 60T0 2220 
CALL HX:XO=XO- RND (5)-7:Y0= 
170: 60T0 2100 
S1=Y0:S2=X0:S3=COLR:COLR=255 
:YO=159:X0=73: CALL HP:YO=157 


3060 


3085 


3100 


3120 


9000 


9020 


9110 


9120 


9130 


9140 


9210 


9220 


9230 


9240 


9310 


9320 


9340 


9350 


: CALL HL 

XO0=231: CALL HP:YO=159: CALL 
HL:XO=206: CALL HP:YO=157: CALL 
HL:XO=48: CALL HP:YO=159: CALL 
HL 

Y0=158:COLRz=0:XO=49: CALL HP: 
XO=72: CALL HL:XO=230: CALL 
HP:XO=207: CALL HL:XO=206: 
HP 

COLR=255:XO=206+( PDL (1)710 

): CALL HL:XO=60: CALL HP:XO= 
60+( PDL (0)-127)7110: CALL 

HL 

OPO= PDL (0)/10:0P1= PDL (1 
)/10:COLR=S3:YO=S1:XO=S2: RETURN 


CALL 


XO=YO=COLReSHAPE=ROTeSCALE= 
I=J=X=Y=Z:HI=2048:HCe=2062:HP= 
2830:HLe2836:HD=2871:HX=2884 
: POKE -16297v0 

SCALE=1: DIM PIN(38)vSET(2) 
“AS(9)vNS(20): CALL -936 


CALL HI:COLR=127:XO=0:YO=O: 


CALL HP:XO=278: CALL HL:YO= 
70: CALL HL 

XO=0: CALL HP:YO=0: CALL HL: 
COLR=85:YO=44: CALL HP:XO=279 
: CALL HL:COLR=127 


FOR I=1 TO 187 STEP 93:XO=IT: 


YO=0: CALL HP:YO=70: CALL HL: 
XO=I+92: CALL HP:YO=0: CALL 
HL: NEXT 工 


XO=93:YO=70: CALL HP:XO=0:YO0= 
159: CALL HL:XO=186:YO0z=70: CALL 
HP:XO=279:YO=159: CALL HL 
COLR=170:XO=80:YO=70: CALL 
HP:XOz=0:YO=133: CALL HL:XO= 
198:Y0=70: CALL HP:XO=279:YO= 
133: CALL HL 


XO=11:YO=70: CALL HP:XO=1:YO= 


75: CALL HL:XO=279:YO=75: CALL 
HP:XO=268:YO=70: CALL HL 
XO=105:YO=70: CALL HP:XO=36 
:YO=159: CALL HL:XO=X0O-2: CALL 
HP:XO=105:Y0=70: CALL HL 
XO=174:YO=70: CALL HP:XO=243 
:YO=159: CALL HL:XO=X0O+2: CALL 
HP:XO=174:YO0=70: CALL HL 
COLR=42: FOR I=1 TO0 187 STEP 


93:XO=I+84:YO0=2: CALL HP:XO= 
I+6: CALL HL:XO=I+45 

YO=42: CALL HL:XO=I+84:YOz2 

: CALL HL: NEXT I:COLR=85: FdR 
I=86 T0 192 STEP 26:X0=I:YO= 
149: CALL.HP: NEXT 工 

FOR L=0 T0 2:SET(CL)=1: 60SUB8 
1300:SHAPE=2:XO=La93+74:YO= 

3: CALL HX:SHAPE=5:XO=XO-67 
:YO=41: CALL HX 

X1=X0+70: FOR XO=x1-Lz3 TO 


3360 


9370 
9400 
9410 


9420 


9430 


9440 


93900 
9910 


93920 


93930 


9940 
293990 


10000 
080E- 
0810- 
0812- 
0815- 
0817- 
0819- 
0818- 
081D- 
081F- 
0822- 
0823- 
0825- 
0827- 
0829- 
082B- 
082D- 
082E- 
0831- 
0834- 
0837- 
0838- 


X1 STEP 3:SHAPE=6: 
NEXT X0O: NEXT L 
CALL -936: POKE -16304v,0: VTAB 
22: INPUT ”HI! WHAT'S YOUR NANME? 
”NS: IF NS="… THEN 9360: CALL 
-936 

G0SU8 9400: 60T0 2000 

RENM 

POKE -16302v0: CALL -384: VTAB 
21: FOR IJ=sl1 TO 159: PRINT ”” 

73: NEXT I: POKE 2039，32 

N=N+1: VTAB 21: TAB 1: PRINT 
”GAME “7;: IF N<10 THEN PRINT 
”PRINT 有” BOWLER: ” 

7NS 

FOR Is1 T0 10: PRINT ” "71; 

” "71 NEXT I: POKE -16301， 

0: FOR I=s1i TO0 1000: NEXT I 

FOR Les0 TO0 2: IF SET(CL) THEN 


CALL HX: 


GO0SUB 1300: NEXT L:XP=100:DX= 

2: RETURN 

REM END 

POKE -16368v,0: CALL -380: VTAB 
24: PRINT : PRINT : INPUT ”ANOTH 


ER GAME?3”v AS: IF AS#"… THEN 
IF AS(1v1)="N”THEN 9990: PRINT 


VTAB 21: CALL -958: PRINT : 

INPUT ”SAME BOWLER?3"vAS: IF 
AS#"”” THEN IF AS(1v1)#"Y” THEN 
93930: G0T0 9940 
VTAB 22: CALL -958: INPUT ”HI! W 
HAT"S YOUR NAME?"vNS: IF NS “ 
="” THEN 9930 


E<s0:F=s0:SP=s0:STze0:SV=0:T=0: 


G0SUB 9400: 60T0 2000 
TEXT : VTAB 21: CALL -958: CALL 
-380: END 
CLR DEL 0,999: 60T0 9000 

A9 00 LDA NS00 
85 1C STA S1C 
AD 26 03 LDA S0326 
85 18 STA $18B 
AO 00 LDY #S00 
84 1A STY S$1A 
A5 1C LDA SS1( 
91 1A STA (SS1A)vY 
20 AZ2 08 JSR S$08A2 
C8 INY 

D0 F6 BNE s$0818B 
E6 18 INC $18 
A5 1B LDA SS18B 

2 有 下 AND 齐 有 1F 
DO EE BNE 3S0818 
60 RTS 

8D 22 03 STA SS0322 
BE 20 03 STX s0320 
8C 21 03 STY S0321 
48 PHA 

29 (5C0 AND #NSCO 
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083A- 
083C- 
083D- 
083E- 
0840- 
0842- 
0843- 
0845- 
0846- 
0847- 
0848- 
0O84A- 
0848B- 
084D- 
084E- 
0850- 
0852- 
0854- 
0857- 
0859- 
085A- 
085C5- 
085E- 
0860- 
0862- 
Q963-~ 
08 65- 
08 67- 
086A- 
0868B- 
0865E- 
0870- 
0871- 
0872- 
0875- 
0877- 
0879- 
087A- 
087D- 
087F- 
0881- 
0883- 
0885- 
0887- 
0888- 
088A- 
008C- 
088D- 
088F- 
0891- 
0893- 
0894- 
0895- 
0897- 
0899- 
089B- 
089D- 
08AO- 
08A2- 
08A3S- 
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85 
4A 
4 人 A 
05 
85 
68 
85 
OA 
OA 
OA 
26 
OA 
26 
OA 
66 
AS5 
29 
0D 
85 
BA 
Cc0 
FO 
AO 
69 
C8 
E9 
8B0 
8C 
AAA 
BD 
85 
98 
4A 
AD 
85 
BO 
60 
20 
A5 
51 
25 
51 
91 
60 
10 
AS5 
4A 
BO 
49 
85 
60 
88 
10 
AO 
A9 
85 
8(C 
AS5 
OA 
C9 


03 


03 


08 


03 


08 


03 


STA 
LSR 
LSR 
DORA 
STA 
PLA 
STA 
ASL 
ASL 
ASL 
ROL 
ASL 
ROL 
ASL 
ROR 
LDA 
AND 
DORA 
STA 
TXA 
CPY 
BEQ 
LDY 
ADC 
INY 
SBC 
BCS 
STY 
TAX 
LDA 
STA 
TYA 
LSR 
LDA 
STA 
BCcS 
RTS 
JSR 
LDA 
EOR 
AND 
EOR 
STA 
RTS 
BPL 
LDA 
LSR 
BCS 
EOR 
STA 
RTS 
DEY 
BPL 
LDY 
LDA 
STA 
STY 
LDA 
ASL 
CMP 


和 26 


S$26 
S26 


S27 


27 
S27 


S26 
$27 
#S1F 
S0326 
S27 


##S00 
S0863 
到 和 23 
六 和 OA 人 


间 有 07 
S0862 
S0325 


SO08EAvX 
S30 


S0324 
S1C 
S08A2 


$S082E 
S1( 
(SS26) vY 
$S30 
(SS26)vY 
《SS26)vY 


SO08AE 
S30 


SO0894 
为 SCC 
S$S30 


S0899 
放 有 27 
#SCO 
S30 
S0325 
S1( 


## 有 CO 


D8A5- 
08A7- 
08A9- 
08AB- 
08AD- 
08AE- 
08B0- 
0881- 
08B3- 
08B5- 
0887- 
08B8B8- 
08BA- 
08BC- 
08BE- 
08C0- 
08C1- 
08C3- 
08C5- 
08C7- 
08C98- 
08C8- 
085CD- 
08CF- 
08D2- 
08D4- 
08D6- 
08D8- 
08D98- 
08D8- 
08DD- 
08DF- 
08E1- 
0O8E3- 
08E5- 
08E7- 
0O8EA- 
08EC- 
08EE- 
08F0- 
08F2- 
08F4- 
08F6- 
08F7- 
08F9- 
08F8- 
08FC- 
08FE- 
0901- 
09035- 
0905- 
0907- 
090A- 
090C- 
090E- 
090F- 
0911-~ 
0913- 
0914- 
0916- 


03 


03 


09 


08 


BPL 
LDA 
EOR 
STA 
RTS 
LDA 
ASL 
EOR 
BMT 
LDA 
INY 
CPY 
BCC 
LDY 
BCS 
CLC 
LDA 
AND 
BEQ 
LDA 
AND 
AND 
BNE 
INC 
LDA 
AND 
BPL 
CLC 
LDA 
AND 
BEQ 
LDA 
EOR 
AND 
BNE 
INC 
EOR 
STA 
LDA 
ADC 
AND 
CMP 
ROR 
BCS 
BMI 
CLC 
LDA 
BIT 
BNE 
ASL 
BCS 
BIT 
BEQ 
ADC 
SEC 
BCS 
ADC 
PHA 
LDA 
ADC 


S08AD 
S1C 
#S7F 
S1C 


$30 


PS80 
S$0891 
痢 $81 


#S28 
S089B 
WSOO0 
$S0898 


SS51 

玫 $04 
和 08EE 
间 委 7F 
多 30 
(SS26)vY 
SO08EA 
S032A 
者 有 7F 
SS30 
S08EA 


S51 

放 SO4 

和 0O8EE 
(SS26)vY 
S$1C 

$S30 
S08EA 
S032A 
《SS26) vvY 
(S26) vvY 
S51- 
SS53 
#SO3 

间 S02 


\ ,0888 
S$092B8 


S27 

S09EA 
S0925 
3S26 

$0921 
$S08F3 
$S0911 
衣 李 1F 


$S0923 
齐 $S23 


S206 
#SBO 


0918- 
091A- 
091C- 
091E- 
091F- 
0921- 
0923- 
0925- 
0927- 
0929- 
092A- 
0928B- 
092D- 
092F- 
0932- 
0934- 
0936- 
0938- 
093A- 
09386- 
093E- 
0940- 
0942- 
0944- 
0946- 
0948- 
094A- 
094C- 
094F- 
0951- 
0953- 
0955- 
0957- 
0958- 


095A- 


095D- 
0960- 
0963- 
0964- 
0965- 
10966- 
0969- 
096A- 
096B- 
096E- 
0970- 
0972- 
0973- 
0975- 
0977- 
0978- 
097A- 
0975C- 
097E- 
0980- 
0981- 
0983- 
0985- 
0986- 
0989- 


EA 09 


2E 09 


26 03 


20 03 
21 03 
22 03 


20 03 


21 03 


BCS 
ADC 
STA 
PLA 
BCS 
ADC 
ROR 
ADC 
STA 
RTS 
CLC 
LDA 
ADC 
BIT 
BNE 
ASL 
BCC 
ADC 
CLC 
BIT 
BEQ 
LDA 
ADC 
EOR 
BEQ 
EOR 
STA 
LDA 
BCC 
ADC 
ROR 
BCC 
PHA 
LDA 
STA 
STA 
STA 
PLA 
PHA 
SEC 
SBC 
PHA 
TXA 
SB(C 
STA 
BCS 
PLA 
EOR 
ADC 
PHA 
LDA 
SBC 
STA 
STA 
PLA 
STA 
STA 
PLA 
STA 
STX 


SS091( 
放 SFO 
和 S26 


SS0923 
者 S1F 
S26 
者 SFC 
S27 


S27 

疼 字 0O4 
和 09EA 
S 和 0927 
$26 

$0951 
放 SEO 


$092E 
SS0953 
S26 
间 S50 
章 季 FO 
SS094A 
站 有 FFO 
SS26 
S0326 
S0953 
#SEO 
S26 
SS0927 


才 S00 
S$0320 
S0321 
S$S0322 


0320 


S0321 
$S53 
S097( 


六 要 FF 
放 孚 01 


#3S00 
S53 
和 51 
$S55 


和 50 
有 54 


SS0320 
有 0321 


098(5- 
098D- 
098E- 
0991- 
0993- 
0995- 
0997- 
0999- 
099C- 
099E- 
099F- 
0O9A1- 
09A2- 
0O9A4- 
0O9A6- 
0O9A8- 
0O9AB- 
09AD- 
O9AE- 
09B1- 
0982- 
098B4- 
098B6- 
09B88- 
098BA- 
098(C- 
09BE- 
09C0- 
09C2- 
09C54 人 - 
09C6- 
09C8- 
09C9- 
09CB- 
095CD- 
09CF- 
09D1- 
09D3- 
09D6- 
09D7- 
09D9- 
09DB- 
09DD- 
09DF- 
09E1- 
09E3- 
09E5- 
09E7- 
09E9- 
09EB- 
09EC- 
09EF- 
0O9F2- 


_ 09F4- 


09F6- 
09F7- 
09F9- 
09FB- 
0O9FC- 
0O9FE- 


03 


03 


08 


08 


F^ 
D^4 


TYA 
CLC 
SBC 
BCC 
EOR 
ADC 
STA 
STY 
RO 人 外 
SEC 
SBC 
TAX 
LDA 
SB(C 
STA 
LDY 
BCS 
ASL 
JSR 
SEC 
LDA 
ADC 
STA 
LDA 
SB8C 
STA 
LDA 
EOR 
AND 
EOR 
STA 
INX 
BNE 
INC 
BEQ 
LDA 
BCS 
JSR 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
BVC 
STA 
STY 
BCC 
cCPY 
?33? 
INC 
CPX 
CMP 
LDA 
SEI 
ADC 
AND 
?33? 
LDA 
ASL 


S$0322 
SS0997 
# 和 FF 
才 孚 FE 
S52 
S0322 
$S53 


S50 


者 和 FF 
S51 
S1D 
S0325 
S09B2 


S0888 


SS54 
S52 
S54 
S55 
NSO0 
S55 
(SS26) vv，Y 
S1C 
S30 
(SS26)vY 
(SS26)vY 


有 S09CF 
S10D 
SOASA 
S53 
SO09AD 
S08F9 


S54 
S50 
S54 

S55 

S$51 
S09BC 
($82vX) 
s88 
s$0989 
WS1 


SF4FAv,X 
SD4E1 
SB4 
(SS8DvX) 


《SS49v，X) 
《SS18)v，Y 


S26 


229 


O9FF- 
OAO1- 
OAO3S- 
OAO4- 
OAO6- 
DA0O7- 
OAO8- 
OAO9?- 
OAOC- 
OAOE-~ 
OAOF- 
OA10- 
OA12-~ 
OA15-~ 
OA18- 
OA1B-~ 
OA1C- 
OA1F- 
OA20- 
OA21- 
OA22- 
OA24- 
OA26- 
OA27- 
OA28-~ 
DAZA-~ 
OA2D- 
OA2E- 
OA2F- 
OA3S2- 
OA3S4- 
OA37- 
OASA- 
OA3SB- 
OA3SD- 
OA3SF-~ 
OA40- 
OA41- 
OA42- 
OA43S- 
OA44- 
DA46- 
OA47- 
OA49- 
OA4A- 
OA4D- 
OA4F- 
OA51- 
OA5Z- 
OA55- 
OA56- 
OA58- 
OA5B- 
OA5D-~ 
OA6O- 
OA62- 
OA64- 
OA66- 
OA68- 
OA6A- 


230 


5 
29 
2A 
05 
OA 
OA 
DA 
8D 
A5 
4A 
4 
29 
0D0 
8D 
AD 
OA 
6D 
OA 
AA 
CA 
AS5 
29 
E8 
4A 
D0 
8D 
BA 
18 
6D 
90 
EE 
8D 
60 
86 
8B4 
AA 
4A 
4A 
《人 
4 和 4A 
85 
8A 
29 
AA 
BC 
84 
49 
AA 
BC 
C8 
84 
AC 
A2 
8E 
六 1 
85 
A2 
86 
86 
AE 


27 
03 


03 


03 
03 
03 


035 


03 


03、 


03 
03 


093 


09 


03 


03 


03 


LDA 
AND 
ROL 
DRA 
ASL 
ASL 
ASL 
STA 
LDA 
LSR 
LSR 
AND 
DRA 
STA 
LDA 
ASL 
ADC 
ASL 
TAX 
DEX 
LDA 
AND 
INX 
LSR 
BNE 
STA 
TXA 
CEEC 
ADC 
BCC 
IN( 
STA 
RTS 
STX 
STY 
TAX 
LSR 
LSR 
LSR 
LSR 
STA 
TXA 
AND 
TAX 
LDY 
STY 
EOR 
TAX 
LDY 
INY 
STY 
LDY 
LDX 
STX 
LDA 
STA 
LDX 
STX 
STX 
LDX 


S27 
到 争 03 


SS26 


$0322 
S27 


才 和 有 D7 
和 0322 
$0322 
$0325 


SS0325 


S50 
NS7F 


SOA26 
S0321 


S0325 
SOA3S7 
SS9322 
S0320 


S1A 
S1B 


$53 
SOF 


SO09EBvX 
S50 
jhSOF 


S09ECvX 


$52 
S0325 
#SOO 
S032A 
(SS1AvX) 
$S51 
#SBO 
S54 
$S55 
S0327 


OA6D- 
OA6F- 
OA70- 
OA72- 
OA74- 
OA76- 
OA79- 
OA7A- 
OA7C- 
OA7E- 
OA8BD- 
OAB2- 
OA85- 
OA86- 
OA88- 
OABA- 
OABB- 
OA8BC- 
OA8B8D- 
OA8B8F- 
OA91- 
OA93- 
OA95- 
OA97- 
OA99- 
OA9A- 
OA9C-~ 
OA9E- 
OA9F- 
OAAO- 
OAAT1- 
OAA2- 
OAAS- 
OAAS- 
OAA6- 
OAAS- 
OAAS- 
OAAC- 
OAAE- 
OABO- 
OAB1- 
OAB4- 
OAB5- 
OAB7- 
OABA- 
OABC- 
OABF -~ 
OAC1- 
OACS- 
OAC5- 
OAC7- 
OAC9- 
OACC- 
OACE- 
OACF- 
OAD1- 
OAD3S- 
OAD5- 
OAD8- 
OAD9- 


08 


08 


09 


09 


03 


03 


03 


08 


LDA 
SEC 
ADC 
STA 
BCC 
JSR 
CLC 
LDA 
ADC 
STA 
BCC 
JSR 
DEX 
BNE 
LDA 
LSR 
LSR 
LSR 
BNE 
INC 
BNE 
INC 
LDA 
BNE 
RTS 
STX 
STY 
TAX 
LSR 
LSR 
LSR 
LSR 
STA 
TXA 
AND 
TAX 
LDY 
STY 
EGR 
TAX 
LDY 
JJNY 
STY 


LDY_ 


LDX 
STX 
LDA 
STA 
LDX 
STX 
STX 
LDX 
LDA 
SEC 
ADC 
STA 
BCC 
JSR 
5CLC 
LDA 


3S54 


S50 
和 5 
SOA7A 
S08D8 


$55 
S52 
S55 
SOA85 
SS08D9 


SOA6D 
S51 


SOA62 
S1A 
SOA95 
SS1B 
(SS1AvX) 
SO0A62 


S1A 
S18 


S53 
旬 SOF 


SS09EB,X 
S50 
者 SOF 


S09ECvX 


SS52 
S$S0325 
#SO00 
S032A 
(S1AvX) 
S51 
#S80 
S54 
$55 
S0327 
54 


SS50 
S54 
SOAD9 
S0850 


S55 


OADB- 
OADD- 
OADF- 
OAE1- 
OAE4- 
OAE5- 
OAE7- 
OAE9- 
OAEA- 
OAEB- 
OAEC- 
OAEE- 
OAF0O- 
OAF2- 
OAF4- 
OAF6- 
OAF8- 
OAF9- 
OAFC- 
OAFF- 
0802- 
0803- 
0806- 
0807- 
0OB0OA- 
0800- 
080E- 
0811- 
08B14- 
0B17- 
0818- 
0818- 
0B1E- 
0821- 
0822- 
08B23- 
0824- 
0825- 
0828- 
0829- 
08B2A- 
08B2D- 
0830- 
0831- 
0834- 
0837- 
083A- 
08B3D- 
0B40- 
0B43- 
0B44- 
08B47- 
0B4A- 
0B4D- 
0B50- 
0851- 
0854- 
0856- 
0859- 
0B5C- 
0OB5E- 
0B61- 
0862- 
0865- 
0867- 


65 
85 
30 
20 
CA 
D0 
AS5 
4A 
4A 
4 
D0 
E6 
D0 
E6 
AT1 
D0 
60 
20 
80 
20 
48 
20 
68 
20 
内 E 
60 
20 
4C 
AD 
4A 
20 
20 
20 
8A 
48 
38 
AA 
20 
A8 
68 
20 
AE 
60 
20 
4 人 ( 
20 
20 
20 
AE 
60 
20 
20 
20 
AE 
60 
8E 
AO 
20 
8D 
AO 
20 
48 
AD 
85 
AD 


08 


ADC 
STA 
BCC 
JSR 
DEX 
BNE 
LDA 
LSR 
LSR 
LSR 
BNE 
INC 
BNE 
INC 
LDA 
BNE 
RTS 
JSR 
STA 
JSR 
PHA 
JSR 
PLA 
JSR 
LDX 
RTS 
JSR 
JMP 
LDA 
LSR 
JSR 
JSR 
JSR 
TXA 
PHA 
TYA 
TAX 
JSR 
TAY 
PLA 
JSR 
LDX 
RTS 
JSR 
JMP 
JSR 
JSR 
JSR 
LDX 
RTS 
JSR 
JSR 
JSR 
LDX 
RTS 
STX 
LDY 
JSR 
STA 
LDY 
JSR 
PHA 
LDA 
STA 
LDA 


S52 
S55 
SOAE4 
SO080D9 


SOACC 
S51 


SOAC1 
S1A 
SOAF4 
SS18 
《SS1AvX)》 
SOAC1 


SS0890 
S0324 
SOBAF 


和 0B9A 


S082E 
S0323 


SOAF9 
S087D0 
SS0325 


S0B890 
S0875 
S$S089A 


SOBAF 


S0964 
S0323 


S0890 
S0810 
SOAF9? 
S0851 
SOA38 
3S0323 


SOAF9 
S0851 
SOA9A 
$S0323 


S0323 
六 有 32 
S0892 
S0327 
#S28 


S0892 


S0328 
S1A 
S0329 


0B6A- 
0B6C-~ 
0B6E-~ 
0B71-~ 
0873- 
0875- 
0877-~ 
0879- 
08B7B- 
0OB7C- 
08B7E- 
0B80- 
0881- 
0882- 
0884- 
0OB86- 
08B87- 
0888- 
0B8A- 
088D- 
088E- 
0B8F- 
0B90- 
0B92- 
0B94- 
0896- 
0897- 
0899- 
0OB9A- 
0B9D- 
0OB9F- 
OBA1- 
0OBA2- 
0OBAS- 
0BA5- 
0OBA6- 
OBA8B- 
OBAA- 
OBAC- 
OBAF- 
0BB1- 
0BB4- 
088B6- 
0888- 
0BB9- 
088BC- 
0O8BF- 
0BC2- 
0BC4- 
08C6- 
08BC9- 
0BCA- 
0BCC- 
08BCD- 
0BCF- 
08BD1- 
0BD4- 
0BD6- 
08D8- 
0OBDA- 
08D8- 
08DD-~ 
08DE- 
08E0- 
OBE2- 


0B 


03 


03 


EE 


08 


03 
F1 
FE 


03 


03 


STA 
LDY 
JSR 
BEQ 
LDX 
CNMP 
BEQ 
BCS 
ASL 
BCC 
INC 
CLC 
TAY 
LDA 
ADC 
TAX 
INY 
LDA 
ADC 
TAY 
PLA 
RTS 
LDY 
LDA 
BNE 
DEY 
LDA 
RTS 
STX 
LDY 
LDA 
TAX 
INY 
LDA 
TAY 
CPX 
S8(C 
BC( 
JNMP 
LDY 
JSR 
CMP 
BCS 
RTS 
STX 
JSR 
JSR 
LDA 
STA 
STA 
CLC 
ADC 
TAY 
LDA 
STA 
STA 
ADC 
BCS 
CPY 
PHA 
SB( 
PLA 
BCS 
STY 
STA 


S1B 
#S20 
SS0B92 

和 S0BAC 
#SOO 
〈《$1AvX) 
S0B7B 
SO08BAC 


$0B81 
SS1B 


《SS1A)vY 
S1A 


(SI1A)vY 
和 0329 


W#S16 
(SS4A)vY 
SO0BAC 


《SS4A) vvY 


S0323 
#S05 
《SS4A)vY 


《SS4A)vY 


#S18 
者 和 0O1 
$S0899 
SEE68 
WSsOD 
SS0892 
#SCO 
SO0BAC 


S0323 
SF11E 
SFEFD 
#SO00 
SS3C 
S0328 


SCE 


PSOC 
$3D 
S$0329 
SCF 
S08FD 
SCA 


SCB 
SO08FD 


SS3E 
SF 
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08BE4- 8 INY 


0BE5- 0D0 02 BNE ”SO0BE9 
DBE7- ”69 01 ADC 。 #S0O1 
0BE9- 84 4A STY SS4A 
0BEB- 85 4B STA SS$4B 
0BED- ”84 (( STY SC 
B.7 五 子 棋 程序 清单 
T 
50 ”60T0 500 
90 ”poKE 6,32: POKE 7,120 - M， 6: 
CALL MU: RETURN 
100 REM COMPUTER 
110 VTAB 8: HTAB 1: PRINT p$S" : 
APPLE" 
120 CALL 9280 
130 P = PEEK (11024) 
140 IF P=0THEN VATB 22: HTAB 1: 
PRINT ”DRAW GAME”: GO0T0O 1100 
i50 P = INT (RND (1) *P/ 2) *2 
160 X = PEEK (ST+pP) 
170 Y = PEEK (ST+pP+l) 
180  VTAB 10: PRINT "V: =": CHRS 
(X + 65) 
190 M = X: 60SU8B 90 
200 PRINMT "3C = ": CHRS (Y + 65) 
21] M = Y: 605J8 90 
120 RETJRN 
500 35M MATN 
510 CALL 3216 
52] 0NERR 60T0 1130 
530 paE 232,0: POKE 233,39 
540 ROT= 0: SCALE= 1 
550 TA = 11264:ST = 12032:MU = 
9728:E$ = “” 
560 60SUB 2010 
570 GOLOR= 0: pRINT CHRS (12): VAT8 
8: PRINT "3 4?(Y/N)";: GET CS: 
PRINT CS 
580 IF CS$ = Y" THENA = 1:MS = 
"1":pP$ = "2": 6G0T0 6 10 
590 IF C$ ( )“N"” THEN 570 
600 Az= 2:M = "2":pS$ = "1" 
610 POKE 0,A:B = A:X = 7:Y = 7 
232 


必 


0BEF- “85 5D STA SCD 
0BF1- 20 FA FC JSR SFCFA 
0BF4- A9 03 LDA #S03 


0BF6- 20 02 FF JSR SFF02 
0BF9- AE 23 03 上 DX $S0323 
OBFC- 60 RTS 

0BFD 


620 COLOR= 0: PRINT CHRS (12) 
630 60Su8 1810 
640 POKE 1,8: POKE 8,X: POKE 9,Y 


650 CALL 8992 

660 8 > 3 - 8: COLOR= 0 

670 IF 8 = 2 THEY G0SUB 100: 60T0 1010 

680 VTAB 15: HTA3 1: PRINT MS"”: YOU": 
PRINT 5$;E$，ES;55 ;5 

690 VTAB 17: PRINT "V: =";: GET CS 

100 X = ASC (C$) - 65: PRINT CS 

710 IF X = - 62 -HEN 1130 

1)20 IFX <。00oRX >14 THEN 680 

730 M = X: 6G0SUB 90 

740 VTAB 18: PRIWT "ec =";: GET CS 

750 Y = ASC (C$) - 65: PRINT CS 

760 IF Y <0 0RY 14 THEN 740 

170 M = Y: 60SU6 90 

780 IF pEEK (TA- X+1l5w*Y) -> 
0 THEN 680 

790 YTAB 20: PRIWT "0K3" 

aoo 5C =2-(A=a):R0 

al0 IFX<>0xs0oKec>14ANDY 

< > 0ANDY - 。，:4THENCL = 18: 

3070 310 

(1 =- 19: IF ，- 、，0 THEN 850 

:FY=0oR 14--3NC1= 

20: IF Y = 14 THEN R = 48: 

30T0 910 

340 60T0 910 

850 IF X < 、14 ThEN 890 

860 IFX -0THEN C1 = 20:R = 16: 
6G0G0 910 

870 IFY -14THEN Cl1 = 20:R = 32: 
6G0T0 910 

880 R = 32: 60T0 910 


[0 
局 


[人 
避 3 


890 
900 
910 
920 


930 
940 


950 


960 
970 


980 
990 


1000 


1010 
1020 
1030 
1040 


1050 
1060 


1070 
人 080 
1990 
1100 


1110 
1120 
1130 


1800 
1810 
1820 


IFY = 0THEY R = 16: 60T0 910 

R = 48 

REM 

HCOLOR= 3: DRAN C AT X * 12 + 15,Y 
* 12 + 15 

FOR 0 = 1 T0 100: NEXT 

HCOLOR= 0: DRAN 2 AT X w 12 + 15,Y 
* 12 + 15 

HCOLOR= 1: ROT= R: DRAM C1 AT X * 
12 + 15,Y * 12 + 15: ROT= 0 


FOR 0 = 17T0 100: NEXT 

2Z = PEEK ( - 16384): IF Z 

< 127 THEN 910 

POKE - 16368,0 

IF Z = 206 THEN 680 

IF (Z < > 217) AND (Z < > 141) 
THEN 790 

G0SU8 1810 

POWE 1,8: POKE 2,X: POKE 3,Y 
V= USR (1) 
tFV>-1ANDYV< 1000 THEN 
640 

COLOR= 0: VTAB 22 
IFB=1THEN PRINT “YOU";: 
1080 

PRINT “APPLE"， 

IF V 0THEN PRINT "LO0SE” 
I5V>999 THEN PRINT “WII 
VTAB 24: HTAB 1: PRINT “TRY 
AGAIN?";: GET GS 

IF 6$ =“"Y" THEN RUN 500 

IF 6$ >“"N" ThENM 1100 

?Ra 0: IN 0: TEXT : LIST 9999: 
END 

REM PLOT 

POKE TA + X + 15 * Y,B 

HCOLOR= 0: DRAW 2 AT X * 12 +15。Y. 
人 


6G0T0 


1830C=2-(A=B) 
1840 HCOLOR= 3: DRAN E AT X *12 + 15,Y 


* 12+ 15 


1850 RETURN 


2000 REN 


INIT 


2010 POKE 33,12: POKE 32,28 

2020 HCOLOR= 1: FOR I = 10 T0 189 

2030 HPLOT 9,I TO0 190， 1 

2040 NEXT 

2050 HCOLOR= 0: FOR I = 15 TO 183 
STEP 12 


2060 HPLOT I,15 T0 I,183 
2070 NEXT 


2080 FOR I = 15 T0 183 STEP 12 
2090 HPLOT 15,I TO 184,I 
2100 NEXT 
2110 HCOLORz 3:"FOR TI = 3 T0 17 
2120 DRAN I AT I * 12 - 21,5 
2130 DRAW I AT 3,I * 12 - 21 
2140 NEXT 
2150 VTAB 1: HTAB 1: PRINT 

1 兴 放 页 胡 认 和 南座 宙 让 宙 中， 
2160_.PRINT "* 9X% () ，- w"; 
2170 PRINT “w 8 w+ ./ mi 
2180 PRINT “* BY 是 人 
2190 PRINT "* S.KOMIYA mi; 
2200 PRINT “六 训 六 如 齐 训 训 碎 训 页 页 间作 
2210 POKE 34,6 
2220 RESTURN 
07FD- 4C 00 40 JMP ,.S4000 
2000- A5 01 LDA sS01 
2002- C5 00 CMP s00 
2004- DO0 5A 8NE Ss2060 
2006- AE :20 2B LDX Ss28B10 
2009- A5 02 LDA SS02 
2008- 38 SEC 
200(5- FD 00 28 S8( S2800,X 
200F- 85 04 STA SO04 
2011- C9 OF CMP #SOF 
2013- BO 10D BCS 32032 
2015- A5 03 LDA SQ3 
2017- 38 SEE 
2018- FD 04 28B SB( S2B04vX 
2018- 85 05 STA sC5 
201D- C9 OF CMP FSOF 
201F- BO 1 BCS S2032 
人 A8 TAY 
2022- B9 20 29 LDA sS28B820v，Y 
之 023= EA NOP 
2026- EA NOCP 
2027- 28 CEC 
2028- 65 04 ADC S04 
202A- A8 TAY 
全 届 全 肯 二 59 00 2 LDA sS2C00,Y 
刘 台 是 各 一 5 01 CK2 20- 


233 


2030- F0 
2032- AS 
2034- 六 
2035- 727 
2038- B5 
203A- c9 
203(6- ED 
203E- A5 
2040- 30 
2042- 18 
2043- 六 
2046- 85 
2048- 6C898 
2C4A- B0 
204C5- A8 
204D- 69 
2050- EA 
帮 S EA 
2052- 18 
2RSSs 65 
这 人 本 有 二 A8 
2054- 89 
20SSm C5 
2858- DO0 
过 全 有 和 60 
03E=~ EA 
205F~ EA 
2060- AS 
2062- 85 
2064- AS 
2066- 85 
2068- A9 
206A- 8D 
206D- AO 
206F- AS5 
OO74= 人 浊 
2073” BO 
2075= AS 
2077- C9 
2079- B0 
2078- AA 
二 0O7C= BD 
207F- EA 
2080- EA 
2081- 18 
2082- 65 
2084- AA 
2085= BD 
2088- 99 
208B- FO 
208D0- C5 
208F- D0 
2091- EE 
2094- AE 
2097- A5 
2099- 18 
209A- 站 全 
209D- 85 
这 信人 二 AS5 
20A1- 18 
2OA2- 7D 
2CAS- 825 
2CA7- C3 
20A8- CO 
2CAA- ?9 


28 


29 


2( 


28 


2B 


2C 
2F 


28 


28B 


2B 


28 


S205D 
S02 


S28B08,，X 
SQL 
SS0O2 
S2060 
S03 
S2C60 


s280Cv，X 
S05 
#SOF 
52060 


S29820,Y 


$S2B20,X 


SO04 


S2C00,X 
s2FOQGQvY 
S2094 
s01 
S20C8 
Ss2911 
s&2310 
SO04 


S2800,X 
SO4 


2CACL- 
20AD7- 
2CAE- 
20AF- 
208B0- 
2082- 
2085- 
2088- 
2089- 
208D- 
20B5E- 
20C0- 
20C52- 
区 站 臣 汪 汪 
20C8- 
20C9- 
20CA- 
20CC- 
20CE- 
20D1- 
2004- 
200D05- 
20D6- 
20D8- 
20DA- 
20D5C- 
20DF- 


20E2- 
20E3- 
20E4- 
2056- 
20E8- 
20EB8- 
20ED- 
20F0- 
20F2- 
20F4- 
20F7- 
20F9- 
2OFC- 
20FF- 
2100- 
2102- 
晤 二 帮 委 二 
2107- 
210A- 
210D- 
21340E> 
2l110- 
芝 主 二 汪 王 
24435= 
2118- 
2118- 
人 下 于 一 
211D- 
211E- 
之 .34E 二 
汪汪 你 个 普 
2123= 
2224- 
人 7 
芭 人 襄 放 二 
到 X 站 一 
2130- 


14 


12 
14 
345 
和 二 


4 


28 
2B 
28 


28 
21 


28 
2 


PS0O0 

Ss2912 
S2813 
S2511 
52069 


S20C9 
##SO1 

S52512 
s2120 


S2035 
#SO07 

so3?312 
scl120 


S20E3 
SQ6 
#S15 
Se2eB12 
Ss2120 


S2108 
S507 
S2F00 
s2l00 
S$2F04 
S$2100 
NS2C 
S2B12 
WSO1 
S$S2813 
S2120 


jHS2E 
S2812 
SO1 
S2823 
3S2120 


HS10 
S$2B812 
S27 
S2813 
s2120 


2133- 


2150- 
2433= 
215S~ 
2156- 
2159- 
2158- 
215D- 
243E= 
2161-~ 
2163- 
2165- 
2168- 
2168- 
2160- 
216F- 
2172- 
站 人 本 
2177- 
2178- 
2178- 


2170D- 
217F- 
2180- 


238S= 


2185- 
2188- 
2188- 
2185E- 
2190-~ 
环 和 多 人 一 
2194- 
2196- 
2198- 
219A- 
219C- 
219E- 
将 人生 下 一 
21A1- 
21A3- 
21A4- 
21A6- 
21A8- 
21AA- 
21AC- 
21AE- 
2180- 
21B82- 
2184- 
2186- 
2188- 
21868-~ 
21BD- 
21C0- 
21563- 
2164- 
21C6- 
21C59= 
21C8B- 
21CE- 
21D1i- 
210D2- 


60 


AE 
A5 
38 
5 
85 
A5 
38 
FD 
85 
A9 
8D) 
8I) 
855 
&85 
82 
AE 
A5 
23 
72 
85 


AS5 
18 
7D 
85 
20 
EE 
AD 
C9 
D0 
A5 
FO 
C9 
FO 
A9? 
85 
60 
A9 
85 
60 
A5 
C9 
FO 
?90 
A9? 
85 
AS5 
5C9 
D0 
A9 
8D 
A9 
8D 
20 
60 
A9 
8D 
A9 
8D 
20 
60 
A9? 


28 


2B 


21 


2B 


28 
21 


SS2810 
S02 


S2B08,X 
sS02 
s03 


S2B0OCv，X 
S03 
#SO0 
S2814 
S2815 
S06 

s07 
S2B1F 
s2810 
SG2 


S2B00，X 
SO2 


S03 


S2B04vX 
S03 
SS2000 
S2B1F 
和 2B1F 
和 SO5 
S2172 
SO07 
S21A4 
邦 李 O 1 
S219F 
放 有 29 
S06 


大 至 28 
SS06 


和 06 
SO2 
S210D2 
SS21F8 
放 &S1F 
S06 
SO01 
#SO2 
$S21C4 
#S3B 
SS2912 
NSO7 
和 S2913 
SS2120 


WSD7 
S2812 
zsS00 
$2313 
s$2120 


NS1E 


21D4- 
21D6- 
2108- 
21DA- 
21DC- 
21DE- 
21E1- 
21E3- 
21E6- 
21E9- 
21EA-. 
21EC- 
21EF- 
21F1- 
21F4- 
21F7- 
21F8- 
21FA- 
21FC- 
2210- 
2212- 
2215- 
2218- 
2218- 
221E- 
2221- 
2224- 
2226- 
2228- 
222A- 
2220- 
222E- 
2230- 
2233- 
2236- 
2238- 
22z3A- 
2230- 
223E- 
2240- 
2243- 
2246- 
2248- 
224A- 
224C- 
224E- 
2251- 
2254- 
2255- 
2258- 
2258- 
225E- 
2261- 
226( 人 - 
2267- 
226A- 
226C- 
226E- 
226F- 
2270- 
2272- 


2274- 


2276- 
2279- 
2278- 


85 
AS5 
人 
D0 
A?3 
8D 
A9 
8D 
20 
60 
A9 
8D 
A9 
8D 
20 
60 
A9 
85 
60 
A9 
8D 
8D 
8D 
8D 
8D 
20 
A5 
C93 
D0 
AD 
18 
69 
BD 
4C 
C9 
DO0 
AD 
18 
693 
8D 
4(C 
蕊 合 
F0O 
C9 
D0 
攻 攻 
AD 
18 
67 
RD 
A7? 
6D 
8D 
EE 
AD 
5C9 
DO0 
EA 
EA 
AS5 
5C5 
?0 
AD 
5C9 
80 


2B 


2B 
21 


28 


2B 
21 


28B 
28B 
28 
2B 
2B 
21 


28 


29 


STA 
LDA 
CMP 
BNE 
LDA 
STA 
LDA 
STA 
JSR 
RTS 
LDA 
STA 
LDA 
STA 
JSR 
RTS 
LDA 
STA 
RTS 
LDA 
STA 
STA 
STA 
STA 
STA 
JSR 
LDA 
CMP 
BNE 
LDA 
CLC 
AD 人 
STA 
JMP 
CNMP 
BNE 
LDA 
CLC 
ADC 
STA 
JMP 
CNP 
BE0Q 
CMF 
BANE 
INC 
LDA 
CS 
AD 
S7A 
LDA 
ADC 
S7A 
INC 
LDA 
CMP 
BNE 
NGP 
NQP 
LCA 
CM2 
8NE 
LDA 
CMP 
85CS 


227D- AD 


2280- C9 
2282- 30 
2284- 38 
2285- A9 
2287- ED 
228A- 8D 
228D0- A9 
228F- ED 
2292- 8D 
2295- 60 
2296- AD 
2299- 《9 
2298B- SO 
229D- 18 
229E- 4D 
22A1- (C9 
22A3S- 90 
22A5- 上 
22A7- C9 
22A9- DO 
22AB- 并 D 
22AE- 18 
22AF- 69 
-22B1- 80 
22B4-~ 内 D 
2287- 69 
全 区 和 汪 = 8D 
2285- 60 
228D- AD 
22C0- 18 
22C1- 69 
22C3- 8D 
22C6- AD 
22C9 一 69 
22C8- 8D 
22CE- 60 
22CF- 00 
220D0- AD 
”22D3-~ FO 
22B5S= C9 
220D07- 80 
220D9- 90 
22D8B- 00 
22D(C- AD 
22DF- 心 遇 
22E13= ?90 
22E3- AD 
22E6- 18 
22E7- 69 
22E9- 8D 
22EC-~ AD 
人 宇 左下 二 69 
22F1= 8D 
宫 2 下 诲 二 60 
交 玉 天才 一 00 
22F6- 00 
22F7- 00 
22F8- AD 
22F8- 8D 
22FE- AD 
2301-~ 8D 
2304- 60 


236 


28 


28 
28 


2B 
28 


2B 


2 


28 


2B 
2B 
28 


2B 


2B 


28_ 


28 


2B 


28 


2B 


2B 


2B 


28 


2B 
2B 
28 
28B 


”LDA 


CMP 
CC 
和 思 可 
LDA 
SBC 
STA 
LDA 
S8(C 
STA 
RTS 
LDA 


区 MP 
色 CS 
CLC 
ADC 
CNP 
@@CC 
LDA 
《RNP 户 
BNE 
LDA 
《CLC 
ADC 
STA 
LDA 
ADC 
STA 
RTS 
LDA 
CL 人 
ADC 
STA 
LDA 
ADC 
STA 
RTS 
BRK 
LDA 
BE@ 
CHMP 
BCS 
BC 人 
BRK 
LDA 
CMP 
BC 人 
LIA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
RTS 
563K 
SRK 
BRK 
LIA 
STA 
LDA 
STA 
RTS 


2320- 
2322- 
232S= 
学 号 汪汪 
2329- 
2328B- 
冰 冤 且 一 


和 汪汪 二 
2333- 
2334- 
2337- 
2339~ 
2338B- 
233C- 
卫生 和 站 忆 
电 呈 全 本 人 
2342- 
2343- 
2347= 
2345- 
2346- 
2347- 
2348- 
2349- 
234A- 
2348- 
234C- 
234E- 
334= 
到 3 
有 沁 妥 > 
2357- 
蕊 了 3 全 = 
3 下 
235D- 
达 六 号 各 二 
2364= 
2364- 
236S~ 
2366- 
汪 的 沾 沁 
2368- 
236A- 
236D- 
236E- 
23714= 
2373= 
2375- 
2378- 
237A- 
237D- 
2380- 
2382- 
2385- 
2388- 
238B- 
238D- 
之 人 2 一 
2394- 
2 人 在 = 
2399= 
239C- 
过 号 时 芷 到 
23A2- 


2B 


2B 
28 


2B 


2B 


2B 


2B 
28 


28 


2(C 


LDA 
STA 
LDA 
STA 
LDA 
STA 
LDX 


LDA 
SEC 
S8C 
STA 
LDA 
SEC 
SBC 
STA 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
LDA 
STA 
LDA 
CHP 
8CS 
LO9A 
CNP 
BCS 
TAY 
LA 
S-A 
AN9> 
N2> 
NCP 
CE 
ADC 
S7A 
TAY 
LDA 
BEQ 
LDA 
SA 
LDA 
STA 
JRD 
LDA 
STA 
JS3 
-cyY 
1 
S-A 
-DA 
Cp 
BEQ 
LDA 
STA 
LBA 
STA 


JMD 


和 S01 
S2B1A 
##SO1 
SO01 
hz$00 
S281B 
S2818 


S08 


SS2808,X 
S02 
SS09 


S2B0CvX 
S03 


#S00 
S$281C 
S02 
#SOF 
S23B1 
S03 
者 SOF 
S2391 


S2820, 必 Y 
S2315 


SO02 
S231D 


S2C00,Y 
S$2380 
#Sc0 

有 2914 
#SDI8 
sc2315 
sc2390 
S0- 
S2500,Y 
sS22140 
s$2345 
#SOO 
Soec00,Y 
有 01 


“SO02 


$23A5 
s$2914 
S2000, 必 Y 
$S2915 
有 S2500, 必 Y 
S2381 


AD 
?99 


AD 
99 
AE 
A5 
18 
7D 
85 
A5 
18 
7D 
85 
EA 
EA 
EA 
EA 
EA 
EA 
EE 
AD 
5C9 
F0 
4C 
ER 
AD 
C9 
FO 
4C 
E6 
A5 
C9 
FO 
4C 
AD 
85 
60 
FF 
FF 
FF 
FF 
FF 
FF_ 
FF 
FF 
FF 
FF 


“FF 


A2 
A9 
9D 
9?D 
?90 
A9 
9D 
93D 
E8 
DO0 
20 
A9? 
85 
A9 


28 
29 


2B 
2A 
28 


2B 


28B 


23 
28 


2(C 
2A 
2E 


29 
2D 


30 


LDA 
S7A 
LDA 
STA 
LDX 
LDA 
CLC 
ADC 
STA 
LDA 
CLC 
ADC 
STA 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NC 
LDA 
CMP 
BEG 
JMP 
INC 
LDA 
CMP 
BEG 
JMP 
INC 
LDA 
CMP 
BEQ 
JMP 
LDA 
STA 
RTS 
23 
于 信人 
信人 
29 
在 癌 
迷人 汪 
最 生生 
和 全 生 
党 公 全 
2332 
党 全 且 
LDX 
LDA 
STA 
STA 
STA 
LDA 
STA 
STA 
INX 
BNE 
JS 
LDA 
STA 
LDA 


S22-4 
sc3cn.Y 


有 2B15 

和 SS2AO0,Y 
SS2B1B8 
S02 


S2B00,，X 
SO02 
SS03 


和 2B04vX 
SS03 


SS281( 
S2B1(C 
WSOB 

S230D7 
S2351 
SS2B1B 
和 S2B818B 
到 有 04 

S23E4 
S232E 
SO01 

SO01 

#SO3 
S23EF 
S2329 
S281A 
SO1 


#S00 
HS0OO 
S2C00vX 
S2A00,X 
S2500,X 
#SO1 
$S2900，X 
S20D00,，X 


S2402 
SS3000 
及 4C 
SOA 

#S3S0O 


2421- 
2423- 
2425- 
2427- 
2428- 
2429- 
242A- 
2428B- 
242C5- 
242D- 
2642E= 
242F- 
2430- 
2433- 
2436- 
2439- 
243C- 
243D- 
243E- 
243F- 
2440- 
2442- 
2445- 
2447- 
244A- 
244C- 
244F- 
2451- 
2453- 
2455- 
2457- 
2459- 
245C- 
2450D- 
245F- 
2460- 
2462- 
2464- 
2466- 
2469- 
246C- 
246F- 
2472- 
2474- 
2475-~ 
2477- 
247A- 
247D- 
247F- 
2482- 
2485- 
2486- 
2489- 
248C[- 
248F- 
2492- 
2495-- 
2498- 
2498- 
249C- 


28B 


28B 


28B 


2B 


2D 
28 
2E 
28B 


2B8 
28 


2B 


28 


29 
2B 
28 
2A 
2B 
28B 
25 


STA 
LDA 
STA 
RTS 
准 和 汪 
全 让 
?3? 
党 人 有 
让 业 
全 学 
生生 
?33 
JSR 
LDA 
LDY 
JSR 
RTS 
汪 光 于 
人 3? 
人 县 作 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
CLC 
ADC 
TAX 
LDA 
CMP 
BEQ 
LDA 
STA 
LDA 
STA 
BPL 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
JMP 
BRK 
BRK 


SS08 
下 号 2 
SOC 


S2210 
S2815 
S2B14 
SE2F2 


wpgSOO 
S28B10 
#SO0 
S2816 
NS00 
S2817 
#SOO 
和 S035 
#S0O0 
S02 
S03 
S2B20,，Y 


S02 


S00 
NSO2 
SS24A0 
S$S2D00,，X 
S28B314 

有 2E00v，X 
3S2B815 
SS2485 


NSsSOO 
S2B14 
3S2814 
jsSOO 
SsS28B15 
sS2B15 


S2900,X 
SS2B14 
S2B14 
S2A00v，X 
$2B15 
SS2B15 
S254E 


237 


249D- 
249E- 
249F- 
24A0O- 
24A3S- 
24A6- 
24A9- 
24AC- 
24AE- 
24AF- 
2481- 
2484- 
24B7- 
24B9- 
24BC- 
24BF- 
24C1- 
24C4- 
24C7- 
24CA- 
24CD- 
24CF- 
24D2- 
24D3- 
24D6- 
24D9- 
24DB- 
24DE- 
24E1- 
24E4- 
24E5- 
24E8- 
24EB- 
2 全 人 在 一 
24F1- 
24F4- 
24F6- 
24F9- 
24FA- 
24FD- 
2500- 
2503- 
2506- 
2509- 
250A- 
2500- 
250E- 
人 
2514- 
2ZSd4S= 
2347= 
251A- 
251D- 
2520- 
2522- 
2525- 
2528- 
252A- 
252D- 
32 芷 = 


00 
00 
00 
BD 
8D 
BD 
8D 
10 
38 
A9 
ED 
8D 
A9 
ED 
8D 
AO 
8( 
8(C 
8( 
8( 
A9 
80D 
C8 
OFE 
2E 
?30 
6E 
6E 
AD 
38 
ED 
8D 
AD 
ED 
8D 
B0 
AD 
18 
6D 
8D 
AD 
6D 
8D 
18 
4C 
38 
2E 
2E 
88 
FO 
4E 
6E 
4C 
A9 
8D 
8D 
AO 
AD 
18 
6D 
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BRK 
BRK 
BRK 
LDA 
STA 
LDA 
STA 
BPL 
SEC 
LDA 
SB(C 
STA 
LDA 
SB( 
STA 
LDY 
STY 
STY 
STY 
STY 
LDA 
STA 
INY 
ASL 
ROL 
BCC 
ROR 
ROR 
LDA 
SEC 人 
SBC 
STA 
LDA 
SBC 
STA 
BCS 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
CLC 
JMP 
SEC 
ROL 
ROL 
DEY 
BEQ 
LSR 
ROR 
JMP 
LDA 
STA 
STA 
LDY 
LDA 
CLC 
ADC 


有 2D00,X 
S2B14 
S2E00,X 
S$S2815 
S24BF 


NS0O0 
S$2814 
S28B14 
NSO0 
S28B15 
和 S2B15 
hgS0O0O 
SS2B11 
S2812 
S28B13 
S2819 
月 有 OA 
S2818 


S2818 
S2B19 
和 24D2 
S2819 
S2818 
S28B14 


SS28B18 
有 261^4 
S2815 
s2819 
S2815 
S25S0D 
S28614 


S2818 
S2B14 
S2B15 
Ss2819 
S2615 


S250E 


S2812 
$S2813 


$2520 
S$2819 
s2818 
$24E1 
WSO0 

S2B14 
S28B15 
MSO3 

$2814 


SS28B12 


2531- 
2534- 
二 人 
253A- 
253D-~ 
2540- 
2543- 
2544- 
2546- 
2549- 
254A- 
2548- 
2545- 
254D- 
254E- 
SS 
2553- 
2556- 
2558- 
255A- 
255D- 
2560- 
2563- 
2565- 
2567- 
2569- 
256(C- 
256F- 
2572- 
人 
全 和 了 人 一 
2578B- 
257D- 
2580- 
2581- 
2383-~ 
2586- 
人 本 本 ~ 
258A- 
258D- 
258F- 
2590- 
23592= 
2594- 
2596- 
2598- 
2598- 
2590- 
259F- 
25A1- 
25A3- 
25A6- 
25A7- 
25A9- 
25AC- 


2600- 
2603- 
2604- 


8D0 
AD 
6D 
8D 
OFE 
2E 
88 
DO 
4( 
00 
00 
00 
00 
00 
AD 
30 
CD 
F0 
90 
《人 
AD 
CD 
F0O 
30 
AO 
8( 
AD 
8D 
AD 
8D 
AC 
A5 
99 
C8 
A5 
作 尺 
C8 
EE 
人 长 
FO 
EA 
E6 
A5 
C9 
FO 
《人 (C 
E6 
A5 
C9 
FO 
4C 
60 
A9 
8D 
60 


AD 
88 
D0 


30 


04 


28 
28 


24 


24 


28B 


CO 


STA 
LDA 
ADC 
STA 
ASL 
ROL 
DEY 
BNE 
JMP 
BRK 
BRK 
BRK 
BRK 
BRK 
LDA 
BMI 
CMP 
BEQ 
BCC 
JMP 
LDA 
CMP 
BEQ 
BCC 
LDY 
STY 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
INY 
INC 
INC 
BEQ 
NOP 
INC 
LDA 
CMP 
BE9 
JMP 
INC 
LDA 
CMP 
BEO 
JMP 
RTS 
LDA 
STA 
RTS 


'LDA 


DEY 
BNE 


S2B14 
S2815 
S2813 
S2815 
S2812 
S2813 


S252A 
SS2485 


S28B15 
S2590 
S2817 
$S2550D 
S2590 
S2567 
S2B14 
S2814 
S256( 
S2590 
8#SO0 
sS2810 
S2814 
3S2816 
S2B15 
$2817 
S2810 
S02 
S$2F00,Y 


S03 
S2F00,Y 


$28B10 
3S2810 
S25A7 


S02 
SO2 
NSOF 
s2598 
S2457 
$03 
$03 
#SOF 
525A6 
S$2453 


前 有 00 
s$2810 


SC030 


S260A 


2606- 
2608- 
260A- 
2608- 
260D- 
260F- 
2612- 


3000- 
3002- 
3005- 
3007- 
300A- 
300C- 
300F- 
3011- 
3014- 
3017- 
301A- 
301D- 
3020- 
3022- 
3024- 
3026- 
3029- 
302B- 
302E- 
3030- 
3033- 
3035- 
3037- 
3039- 
303B- 
303D- 
303F- 
3041- 
3043- 
3045- 
3047- 
3049- 
3048- 
304D- 
304F- 
3051- 
3053- 
3055- 
3056- 
3059- 
305C- 
305E- 
305F- 
3061- 
3063- 
3065- 
3068- 
306A- 
3068- 
306E- 
3071- 


C6 
FO 
CA 
D0 
A6 
4C 
60 


A9 
80D 
A9 
8D 
A9 
8D0 
A9 
80D 
2 
2C 
2(C 
2( 
A9 
85 
A9 
80 
A9 
8D 
A9 
8D 
A9 
85 
A9 
85 
A9 
85 
A9 
85 
A9 
85 
85 
A5 
85 
AO 
FO 
A4 
AS5 
4^8 
20 
20 
AO 
68 
69 
C5 
?0 
4C 
85 
08 
20 
4C 
85 


26 


03 


03 


31 
过 和 


F( 


30 


DEC 
BEO 
DEX 
BNE 
LDX 
JMP 
RTS 


LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
BIT 
BIT 
BIT 
BIT 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDY 
BE59 
LDY 
LDA 
PHA 
JSR 
JSR 
LDY 
PLA 
ADC 
CMP 
BC 
JMP 
STA 
PHP 
JSR 
JMP 
STA 


$06 
3S2612 


S2603 
S07 
S2600 


NSO0 
SS03(69 
ngS33S 
SO03CA 
NSFO 
和 S03C7 
NS3S8 
S03C8 
SC050 
SC052 
SC055 
SC057 
#S4O 
SE6 


、 太 有 4(C 


SO03F8 
S14 
S03F9 
hS30 
SO03FA 
帮 富 次 
3S36 
hhS3SO 
S37 
2#S68 
3S38 
S30 
S39 
#sS00 
外 
“30 
S22 
s25 
zhs00 
s3055 
S24 
S25 


S318C 
S319A 
NSsS0O0 


gsS00 
$S23 
SS3055 
SFC58 
SS35 


$3079 
S3077 
S35 


3073- 
3074- 
3077- 
3078- 
3079- 
307C- 
307F- 
3081- 
3083- 
3085- 
3087- 
3088- 
308B- 
308(C- 
308E- 
3091-~ 
3093- 
3095- 
3096-' 
3099- 
309A- 
3098C5- 
309E- 
30A1- 
30A4- 
3S0A6- 
30A8- 
3O0AB- 
30AD- 
30AF- 
3081- 
3084- 
3087- 
3089- 
308BB- 
308(C- 
30BE- 
30C0- 
30C1- 
30C3- 
30C5- 
30C7- 
30C9- 
30CB- 
30CE- 
30D1- 
30D2- 
30D4- 
30D6- 
30D8- 
30D8-~ 
30DE-~ 
30E0- 
30E3- 
30E5- 
30E7- 
30E9-~ 
30E8- 
30ED- 
30EF- 


08 
20 
28 
60 
8E 
8( 
AS5 
91 
A5 
29 
08 
20 
28 
FO 
20 
C9 
D0 
48 
20 
68 
C9 
D0 
20 
4C 
C9 
D0 
20 
A4 
B1 
85 
AC 
《人 C 
C9 
D0 
48 
A9 
85 
68 
C9 
D0 
A9 
85 
A9 
AE 
AC 
60 
E6 
D0 
E6 
20 
AD 
10 
2C 
C9 
D0 
A9 
C9 
D0 
A9 
C9 


31 


03 


30 


03 


31 


03 


CO 


CO 


PHP 
JSR 
PLP 
RTS 
STX 
STY 
LDA 
STA 
LDA 
AND 
PHP 
JSR 
PLP 
BEQ 
JSR 
CMP 
BNE 
PHA 
JSR 
PLA 
CNMP 
BNE 
JSR 
JMP 
CMP 
BNE 
JSR 
LDY 
LDA 
STA 
LDY 
JMP 
CMP 
BNE 
PHA 
LDA 
STA 
PLA 

CMP 
BNE 

LDA 
STA 
LDA 
LDX 

LDY 

QTS 

INC 

BNE 

INC 

JSR 

LDA 
BPL 

BIT 

CMP 
BNE 

LDA 
CMP 
BNE 

LDA 

CMP 


SS315D 


S03C8 
$03C5(C 
SS35 
(SS28)vY 
S1F 
WS2O 


SS30D2 


S3091 
S03C4 
1S8D 

S309A 


S3198 


1S8C 
S30A4 
SS3049 
S3083 
#S8B 
S3087 
SFC1A 
S24 
(28)v，Y 
S35 
S03CC 
SS307F 
NS93 
3S30C1 


hgS4O 
S1F 


3S92 
SS30C8 
hsSAO 
SS15F 
hsS8BF 
5$03CB 
$03CC 


SS4E 

SS300D8 
S4F 

S30F6 
sSC000 
S30D2 
SC010 
WwWS81 
S30E9 
#SDB 
放 李 96 
S30EF 
jgSsDC 
WS9A 
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30F1- 
3OF3S= 
30FS= 
30F6- 
30F9- 
30FB- 
3S0FD- 
3CFF- 
和 全 
3103- 
3106- 
3108- 
3108- 
310D- 
310E- 
E 
光 生 卫 党 二 
3114- 
3115- 
3317- 
汪 生 生 全 = 
3118- 
号 人世 一 
号 生生 一 
汪 了 下 一 
3121- 
汪 和 要 科 
3125- 
327=” 
全 人 一 
二 业 二 全 < 
3220- 
沪 开 学 下 一 
汪 放 烙 一 
注入 二 是 志 
本 入世 一 
3136- 
汪汪 让 一 
343A=~ 
313C= 
313E- 
3140- 
3141- 
3144- 
3146- 
3148- 
314A- 
3314C= 
314E- 
314F- 
3450- 
马 环 生 这 一 
3154- 
沪 业 全 丰 二 
3157= 
总 3 一 
3345C= 
六 3 一 
3160- 
3161- 
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D0 
A9 
60 
20 
4 
8B1 
85 
A9 
85 
20 
A5 
20 
A9? 
38 
AA 
2C 
30 
CA 
D0 
下 全 
D0 
60 
AS 
4B8 
AS5 
49 
85 
85 
5 
20 
68 
85 
60 
A9 
85 
E6 
A5 
55 
930 
C6 
A5 
48 
20 
A5 
85 
A5 
85 
AL4 
88 
68 
69 
5C5 
8B0 
48 
20 
8 
A2 
A5 
48 
A5 


31 


要 


CO 


32 


旺 


31 


BNE 
LDA 
RTS 
JSR 
LDY 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
JSR 
LDA 
SEC 
TAX 
BIT 
BMI 
DEXx 
BNE 
SBC 
BNE 
RTS 
LDA 
PHA 
LDA 
EOR 
STA 
STA 
LDA 
JSR 
PLA 
STA 
RTS 
LDA 
STA 
INC 
LDA 
CNMP 
BCC 
DEC 
LDA 
PHA 
JSR 
LDA 
STA 
LDA 
STA 
LDY 
DEY 
PLA 
ADC 
CMP 
BCS 
PHA 
JSR 
STY 
LDX 
LDA 
PHA 
LDA 


SS30F5 3163- 
HSDF 3164- 

3166- 
SFC22 3167- 
SS24 3168- 
(SS28)vY 3169- 
S35 316A- 
#SFF 316C- 
S$S16 316E- 
S$S3106 316F- 
S35 3171=~ 
S311(C 3173- 
为 SAF 3175- 

3177-~ 

3178- 
SC000 317A- 
S311B 3178- 

317D- 
和 S310F 317E- 
章 有 01 3S180- 
S$S310E 3181- 

3183=- 
S32 3185- 

考生 7 一 
S16 318A- 
冯 SFF 318(- 
S16 4 和 下 一 
S32 SS 一 
S35 和 有 3 
SS3268 3195- 

3197=~ 
3$32 3198- 

319A- 
NS0O0 349C= 
S24 319D- 
SS25 319F- 
S25 31A1- 
S$23 31A3- 
3S318( 31A5- 
SS25 31A7- 
S22 31A8- 

31A9- 
S318( 31AB- 
SS28 31AD- 
S2A 31B0- 
S29 3i1B61- 
SS28 31BS= 
SS21 SBG= 

3188- 

31BA-~ 
痢 有 01 318BC- 
有 23 3BE~ 
$S3185 31C0- 

34C2= 
S318C 31C3- 
$35 31C4- 
SO07 31C5- 
3S29 32C7= 

31C9- 
$28B 双 本 人 和 = 


48 
A4 
8A 
OA 
OA 
48 
05 
85 
68 
05 
85 
8B1 
91 
88 
10 
68 
85 
68 
85 
CA 
10 
30 
AO 
20 
A5 
20 
A5 
29 
05 
85 
60 
A4 
A5 
48 
过 全 
05 
85 
A5 
29 
AA 
?98 
29 
DO0 
BD 
18 
90 
BD 
85 
A2 
A5 
29 
05 
85 
8A 
OA 
OA 
05 
85 
A5 
91 


本 


31 


F(C 


本 


31 


PHA 
LDY 
TXA 
ASL 
ASL 
PHA 
ORA 
STA 
PLA 
ORA 
STA 
LDA 
STA 
DEY 
BPL 
PLA 
STA 
PLA 
STA 
DEX 
BPL 
BMI 
LDY 
JSR 
LDA 
JSR 
LDA 
AND 
ORA 
STA 
RTS 
LDY 
LDA 
PHA 
AND 
ORA 
STA 
LDA 
AND 
TAX 
TYA 
AND 
BNE 
LDA 
&LC 
BCC 
LDA 
STA 
LDX 
LDA 
AND 
ORA 
STA 
TXA 
ASL 
ASL 
ORA 
STA 
LDA 
STA 


SS29 
SS29 


$S28 
S2B 
($28)vY 
(S2A)vY 


SS3173 
S2B 
S29 


S$315E 
S3144 
NS00 
S319A 
S$25 
SFC24 
s29 
NS03 
SE6 
Ss29 


S24 
SS29 


##S0O3 
和 SEO 
S29 
330 
NS0O7 


前 有 0 1 
S3183 
S31DD,X 


S31B6 
S31E5v，X 
$35 
#S07 
S29 

刘 和 $03 
SE6 

S29 


S29 
SS29 
$35 
(SS28)v，Y 


31CD- 
31CE- 
31D0- 
31D1- 
31D3- 
310D5- 
3106- 
3108- 
31DA- 
310C- 
31DD- 
310DE- 
31DF- 
31E1- 
31E2- 
31E3- 
3S1E5- 
31E6- 
31E8- 
31E9- 
31EA- 
31EC- 
31ED- 
31EE- 
31F0- 
31F2- 
31F4- 
31F6- 
31F8- 
31F8- 
31FE- 
31FF- 
3201- 
3203- 
3206- 
3208- 
3209- 
320B- 
320(C- 
320E- 
320F- 
3210- 
3213- 
3216- 
3219- 
321A- 
321(C- 
321D- 
321F- 
3220- 
3222- 
3223- 
3226- 
3228- 
322A- 
3228- 
3220- 他 
3230- 
3232- 
3234- 


CA 
10 
C8 
C4 
90 
68 
29 
09 
85 


60 


00 
2A 
55 
80 
AA 
D5 
00 
55 
7F 
80 
D5 
FF 
48 
24 
50 
C9 
90 
69 
8C 
8E 
AA 
C9 
D0 
20 


'A5 


48 
A5 
48 
AS5 
48 
8A 
20 
AE 
AC 
68 
85 
68 
85 
68 
85 
68 
6C 
A6 
10 
38 
E 
20 
E6 
AS5 
C5 


7F 


弟弟 


2A 


AA 


03 
03 


30 


32 
03 
03 


03 


32 


DEX 
BPL 
INY 
必 旨 时 
BCC 
PLA 
AND 
ORA 
STA 
RTS 
BRK 
ROL 
EDR 
人 
TAX 
CMP 
BRK 
EOR 
人 家 
人 评 
CMP 
妥 量 要 
PHA 
BIT 
8BVC 
CHMP 
BCC 
ADC 
STY 
STX 
TAX 
CNMP 
BNE 
JSR 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
TXA 
JSR 
LDX 
LDY 
PLA 
STA 
PLA 
STA 
PLA 
STA 
PLA 
JMP 
LDX 
BPL 
SEC 
SB( 
JSR 
INC 
LDA 
CMP 


S318A 


$21 
S31A3 


SO03 
间 委 04 
SS29 


S7FvX 


SFFvX 


权 2AvX 


有 AAA，vX 


S1F 

S31F8 
##SCO 
S31F8 
间 S1F 
S03CC 
$S03CB 


放 S8C 
S3206 
S3049 
S24 


S25 
S$S29 
S323F 
S03CB 
S03CC 
S29 
$25 
S24 
〈03C7) 
S1F 
S3220 
NS60 
S3268 
S24 


SS24 
S21 


3236- 
3238- 
于 23= 
323C- 
323F- 
3241- 
3243- 
3244- 
3246- 
3248- 
324A- 
324C- 
3S24E- 
3250- 
3252-~ 
3254- 
3256- 
3258- 
325A-~ 
条 CS 人 
325E- 
3260- 
3262- 
3264- 
3266- 
3268- 
326A- 
326B8- 
326(C- 
326D- 
326F- 
3271- 
3273- 
32Z73- 
3278- 
327A- 
327B- 
327D- 
327F- 
3280- 
3282- 
3284- 
3285- 
3287- 
3289- 
328B- 
328D- 
328F- 
3290- 
3292- 
3293- 
3295- 
3296- 
3298- 
3299- 
329B8- 
329C- 
时 之 全 在 一 
导 呈 人 生 三 
32A2- 


B0 
60 
4C 
4C 
C9 
BO 
A8 
10 
C9 
F0 
C9 
FO 
C9 
DO 
A9 
DO 
C9 
D0 
AS5 
29 
09 
DO0 
C9 
D0 
A9 
85 
60 
48 
48 
AS5 
C9 
B0 
A9 
2 
85 
68 
《人 
B0 
48 
A9 
85 
68 
09 
所 本 
?30 
C9 
90 
38 
E9 
38 
E? 
OA 
26 
OA 
26 
OA 
26 
18 
6D 


85 


C9 
17 


00 


03 


BCS 
RTS 
JMP 
JMP 
CMP 
BCS 
TAY 
BPL 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
LDA 
BNE 
CMP 
BNE 
LDA 
AND 
ORA 
BNE 
CMP 
BNE 
LDA 
STA 
RTS 
PHA 
PHA 
LDA 
CMP 
BCS 
LDA 
BILT 
STA 
PLA 
CMP 
BCS 
PHA 
LDA 
STA 
PLA 
ORA 
CMP 
BCC 
CMP 
BCC 
SEC 
SBC 
SEC 
SBC 
ASL 
ROL 
ASL 
ROL 
ASL 
ROL 
CLC 
ADC 
STA 
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3S2A4- A5 
32A6- 29 
32A8-- 6D 
32A8- 85 
32AD- A5 
32AF- 48 
3280- A2 
32B2- AS5 
328B4- 29 
3286- 05 
3288- 85 
32BA- BA 
328B8- OA 
328B(C- OA 
328D- 05 
328F- 85 
32C1- 8A 
32C2- A8 
32C3-~ B1 
32C5- 45 
CT 二 A4 
32C9- 91 
32CB- CA 
32CC- 10 
32CE~ 68 
3S2CF= 85 
2D< 68 
汉人 人 有 二 60 
3800- C9 
3802- D0 
3804- A9 
3806- 20 
3809- AO 
3808B- A9 
380D- 20 
3810- AD 
纯 3 88 
3814- D0 
3816- 60 
3817- A4 
戈 是 4 人 = EA 
381A- EA 
3818B- E6 
381D- A5 
381F- C5 
3821- 80 
3823- 60 
3824- C9 
3826- 80 
3828- AB 
3829- 10 
3828- C9 
382D- FO 
382F- C9 
3831- FO 
3833- C9 
3835- D0 
3837- C6 
839= 10 
383B- A5 
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03 


38 


38 


LDA 
AND 
ADC 
STA 
LDA 
PHA 
LDX 
LDA 
AND 
DORA 
STA 
TXA 
ASL 
ASL 
ORA 
STA 
TXA 
TAY 
LDA 
EOR 
LDY 
STA 
DEX 
BPL 
PLA 
STA 
PLA 
RTS 
CNMP 
BNE 
LDA 
JSR 
LDY 
LDA 
JSR 
LDA 
DEY 
BNE 
RTS 
LDY 
NOP 
NOP 
INC 
LDA 
CMP 
BCS 
RTS 
CMP 
8CS 
TAY 
BPL 
CMP 
BEQ 
CKP 
BEQG 
CMP 
BNE 
DEC 
BPL 
LDA 


sl18 
#SO7 
S03CA 
si18 
SS29 


#SO7 
S29 
#SO3S 
SE6 
S29 


S29 
S29 


(S17)vY 
S1E 
S24 
(SS28) vY 


S3282 


S29 


#S87 
S35816 
#S40O 
S38CF 
NSCO 
天 有 SOC 
s38CF 
sC030 


S35808 


24 


S24 
要 24 
S21 
SS3889 


者 凶 AO 
SS3817 


S3817 
#S8D 
SS3889 
NSSA 
SS3880D 
#S88 
SS3800 
S24 
S3823 
S21 


383D- 
383F- 
3841- 
3843- 
3845- 
3847- 
3849- 
3848B- 
384E- 
3850- 
3852- 
3853- 
3855- 
3857- 
3859- 
385B-~ 
385D- 
3 驴 和 节 一 
3861- 
3863- 
3865- 
3867- 
3869- 
386B- 
386D- 
386E- 
3871- 
3874- 
3876- 
3877- 
3879- 
3878- 
387Q- 
汪 87 系 一 
3881- 
3883- 
3885- 
3887- 
3889- 
3888- 
388D- 
388F- 
3891- 
3893- 
3895- 
3897- 
3899- 
389A- 
389D- 
389F- 
38A1- 
38A3S- 
38A5- 
38A7- 
38A8- 
38A9- 
38AB- 
38AD- 
358AF- 
38B0- 


85 
C6 
AS5 
C5 
BO 
(6 
AS 
20 
65 
85 
60 
49 
FO 
69 
90 
FO 
69 
30 
FO 
69 
30 
DO 
4 
AS5 
48 
20 
20 
AO 
68 
69 
C5 
?30 
B0 
AS 
85 
AO 
84 
FO 
A9 
85 
E6 
RS5 
C5 
?30 
C6 
AS5 
48 
20 
AS5 
85 
AS5 
85 
A4 
88 
68 
69 
C5 
B0 
48 
20 


C1 F8 


486 38 
C5 38 


4B 38 


STA 
DEC 
LDA 
CMP 
BCS 
DE( 
LDA 
JSR 
ADC 
STA 
RTS 
EOR 
BEO 
ADC 
BCC 
BEQ 
ADC 
BCC 
BEQ 
ADC 
BCC 
BNE 
LDY 
LDA 
PHA 
JSR 
JSR 
LDY 
PLA 
ADC 
CHMP 
BCC 
BCS 
LDA 
STA 
LDY 
STY 
BE9 
LDA 
STA 
INC 
LDA 
CMP 
BCC 
DE( 
LDA 
PHA 
JSR 
LDA 
STA 
LDA 
STA 
LDY 
DEY 
PLA 
ADC 
CNMP 
BCS 
PHA 
JSR 


S24 
S24 
$22 
有 25 
S3852 
$25 
和 25 
SF8C1 
$S20 
S28 


##SCO 
S387F 
hgSFD 
$3818 
和 S3837 
#$FD 
S388D 
SS3841 
#SFD 
S38[3 
SS3852 
和 妥 24 
$S25 


S384B 
$38(C5 
WSOO 


#SO0 
S23 
3S386D 
S3849 
S22 
S25 
#SO0 
要 24 
S3860D 
HSO0 
S24 
$S25 
$25 
SS23 
S3848 
$S25 
S22 


3$3848 
s28 
S2A 
s29 
s2B 
s21 


全 501 
$23 
SS388( 


S$3848 


38 


38 


(和 28)vY 3AB5- 
(5S2A)vY 3AB7- 
3ABA- 
SS3883 3ABC- 
S389D SABE - 
ngsSOO 3ACO- 
S38(C5 3AC2- 
S3849 SAC3S- 
S24 3AC5- 
NSAO 3AC6- 
(528)， SAC8- 
S21 
S38C7 4000- 
4003- 
4006- 
4008- 
#SO1 400A- 
S$38D1 400D- 
400F- 
WSO1 4012- 
S38D0 4014- 
4015- 
342 4017- 
$S38E1 
S43 
S$3( 0800- 
S3E 0808- 
S3D 0810- 
S3F 0818- 
S3C 0820- 
S38EF 0828- 
s3D 0830- 
0838- 
铬 SAO 0840- 
SS38F6 0848- 
S32 0850- 
S35 0858- 
0860- 
和 3824 0868- 
0870- 
S35 0878- 
0880- 
NSCO 0888- 
S3A00,X， 0890- 
S9?9.,X 0898- 
53300,X 08A0- 
sc01200,X 08A8- 
s3Co0,X 0880- 
sS020C, 7 0888- 
08C0- 
SS3902 08(C8- 
SC080 08D0- 
SD06645 08D8- 
S757D2 08E0- 
08E8- 
08F0- 
08F8- 
SS88 0900- 
sS3AB87 0908- 


00 
30 
2&C 
32 
<D 
00 
54 
六 2 
24 
50 
78 
67 
31 
08 
A2 
22 
41 
3 
50 
(CA 
AE 
53 
AA 
C8 
B4 
20 
22 
29 
58 


.CC8 


《43 
59 
D2 
30 


SB9 

S$0800 
者 至 人 
SSACB8 
NS20 
S3AB1 


WS3S0 


8SDO 


SC080 
S$D566 
Rs20 
SS400D 
SC081 
为 $50 
S4000,，X 
S00v，X 


SS4OOF 
SD566 


35 30 
89 36 
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0910- 18 
0918- 49 
0920- 39 
0928- 02 
0930- 4 了 
0938= .2 
0940- 33 
0948- 30 
0950- 02 
0958- 34 
0960- 33 
0968- 32 
0970- 20 
0978- 20 
0980- 02 
0988- 09 
0990- 28 
0998- BA 
09A0- 28 
09A8- BE 
0980- D7 
0988- 22 
095C0- 40D 
09C8- 3A 
09D0- 22 
09D8- 09 
09E0- 22 
09E8- 03 
09F0- 40 
09F8- 22 
OA00- 0E 
OA08- 30 
OA10- 58 
OA18- 26 
OA20- E7 
OA28- 76 
OA30- 43 
OA3S8- 3A 
OA40- 2C 
OA48- 38 
OA50- 02 
OA58- 30 
OA60- D0 
OA68- AB 
OA70- A8 
OA78- 3A 
OA80- 20 
OA88- BA 
OA90- 24 
OA98- 81 
OAAO- BA 
OAA8B- 20 
OAB0O- 00 
OAB8- 28 
OACO- BA 
OAC8- AD 
OAD0O- 31 
OAD8- AD 
OAEO- 34 
OAE8- DA 
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OAFO- 
OAF8- 
0800- 
0808- 
0B10- 
0818- 
0B20- 
0828- 
0830- 
0838- 
0B40- 
0848- 
0850- 
0858- 
0860- 
08B68- 
0870- 
0878- 
Q8B80- 
0688- 
0890- 
0898- 
0BAO- 
0BA8- 
08BB0- 
08BB8- 
0BC0- 
0BC8- 
08D0- 
08D8- 
0BEO- 
0BE8- 
0BFO0- 
08F8- 
0C00- 
0C08- 
0C10- 
0C18- 
0C20- 
0C28- 
0C30- 
0C38- 
0C40- 
0C48- 
0C50- 
0C58- 
0C60- 
0C68- 
0C70- 
0C78- 
0C80- 
0C88- 
0C90- 
0C98- 
OCRAO- 
0CA8- 
0CB0- 
0CB8- 
0CCO- 
05CC8- 


30 
38 
43 
43 
D0 
35 
F8 
CF 
3C 
B0 
AD 
31 
C4 
03 
20 
7A 
28 
30 
D1 
34 
D1 
31 
B4 
39 
38 
AD 
34 
AD 
34 
章 | 
00 
CF 
09 
CA 
D0 
00 
31 
3A 
31 
D0 
00 
30 
39 
52 
03 
33 
32 
32 
03 
30 
?92 
31 
号 和 
B6 
?94 
58 
C8 
0C 
31 
CA 


0CD0- 
0CD8- 
0CE0- 
0CE8- 
0OCF0O- 
0OCF8- 
0D00- 
0D08-~ 
0D10- 
0D18- 
0D20- 
0D28- 
0D30- 
0D38- 
0D40- 
0D48- 
0D50- 
00D58- 
0D60- 
0D68- 
0D70- 
0D78- 
00D80- 
00D88- 
0D90- 
0D98- 
0ODAO- 
0ODA8- 
0DB0O- 
00D88- 
0DC0- 
0DC8- 
0DD0- 
0DD8- 
0DE0- 
0DE8- 
0DF0- 
0DF8- 
05E00- 
05E08- 
0E10- 
0E18- 
0E20- 
0E28- 
0E30- 
0E38- 
0E40- 
0E48- 
0E50- 
0558- 
0E60- 
05E68- 
0E70- 
0E78- 
0E80- 
0E88- 
0E90- 
0E98- 
0OEAO- 
0OEA8- 


36 
D1 
00 
36 
0C 
36 
E8 
31 
31 
00 
31 
注 和 
3A 
06 
00 
C9 
30 
1A 
00 
31 
OFE 
30 
13 
38B 
D1 
4F 
《2 
C4 
07 
0D 
汪 
20 
22 
0D 
二 可 
FA 
蕉 天 
30 
3A 
39 
08 
00 
C8 
42 
3A 
C8 
C8 
4 人 3 
29 
SA 
C8 
C8 
B1 
49 
07 
B9 
0E 
DO 
AF 
C1 


0OE80- 
D5E88- 
0OECO- 
0EC8- 
0ED0- 
0ED8- 
OEEO- 
0EE8- 
OEF0O- 
OEF8- 
OF00- 
OF08- 
OF10- 
OF18-~ 
OF20- 
OF28- 
OF30- 
OF38- 
OF40- 
OF48- 
OF50- 
OF58- 
OF60- 
OF68- 
OF70- 
OF78- 
OF80- 
OF88- 
OF90- 
OF98- 
OFAO- 
OFA8B- 
OFB0O- 
OFB8- 
OFC0O- 
OFC8- 
OFD0O- 
OFD8- 
OFE0O- 
OFE8- 
OFFO- 
OFF8- 
1000- 
1008- 
1010- 
1018- 
1020- 
1028- 
1030- 
1038- 
1040- 
1048- 
1050- 
1058-~ 
1060- 
1068- 
1070- 
1078- 
1080- 
1088- 


OFE 
08 
性 
00 
31 
00 
OFE 
Ci1 
00 
49 
06 
3E 
33 
08 
C9 
52 
CA 
OF 
08 
22 
2ZA 
6F 
OF 
2D 
OF 
26 
OFE 
84 
20 
20 
08 
革 允 
2A 
BA 
2A 
D2 
36 
40 
OA 
OA 
了 3C 
3E 
20 
20 
4B 
20 
20 
5 学 
47 
OA 
00 
00 
20 
54. 
20 
4C 
OA 
8E 
3C 
00 
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1090- 00 
1098- 00 
10A0- 41 
10A8- 80 
108B0- 03 
1088- 00 
10C0O- 00 
10C8- 00 
10D0- 00 
100D8- 00 
10E0- 00 
10E8- CO 
10F0- 00 
10F8- 00 
1100- 00 
1108- 00 
1110- 00 
1118- 00 
1120- 00 
1128- 00 
1130- 00 
1138- 00 
1140- 00 
1148- 00 
1150- 00 
1158- 00 
1160- 00 
1168- 00 
1170- 00 
1178- 00 
1:280- 00 
11288- 09 
1190- 00 
1198- 00 
11A0- 00 
11A8- 00 
1180- 00 
1188- 00 
11C0- 00 
115C8- 00 
11D0- 00 
1108- 00 
11E0- 00 
3 ES= 性 必 
11F0- 00 
11F8- 00 
1200- 00 
1208- 00 
1210- 00 
1218- 00 
1220- 00 
1228- 00 
1230- 00 
1238- 00 
1240- 00 
1248- 00 
1z50- 00 
1258- 00 
1260- 00 
1268- 00 
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1270- 
1278- 
1280- 
1288- 
1290- 
1298- 
12A0- 
12A8- 
1280- 
1288- 
12C0- 
12C8- 
12D0- 
12D8- 
12E0- 
12E8- 
12F0- 
12F8- 
1300- 
1308- 
4340C~ 
1318- 
1320- 
1328- 
生 汪 人 = 
1338- 
1340- 
1348- 
1350- 
本 呈 38 一 
1360- 
1368- 
1370- 
1378- 
1380- 
1388- 
3 从 = 
3 有 8 二 
13AO0- 
13A8- 
138B0- 
13B8- 
13C0- 
13C8- 
13D0- 
13D8- 
志 丰 屋 == 
13E8- 
13F0- 
13F8- 
1400- 
1408- 
1410- 
1418- 
1420- 
1428- 
1430- 
1438- 
1240- 
1448- 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00- 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


18D0- 
18D8- 
18BE0- 
1858- 
18F0- 
1BF8- 
15C00- 


1508- 


14C10- 
14C18- 
1C20- 
1C28- 
1C30- 
15C38- 
1C40- 
1C48- 
1C50- 
14C58- 
1C60- 
TYC68- 
1C70- 
1C78- 
1C80- 
1C88- 
1C90- 
1C98- 
1CAO- 
1CA8- 
1CB0- 
1C968- 
15CC0- 
15C8- 
1CD0- 
1CD8- 
1CEO- 
1CE8- 
1CF0- 
1CF8- 
1D00- 
1D008- 
1D10-~ 
1D18- 
1D20- 
1D28- 
1D30- 
1D38- 
1D40- 
1D48- 
1D50- 
10D058- 
1D60- 
1D68- 
1D70- 
1D78- 
1D80- 
1D88- 
1D90- 
1D98- 
1DAO- 
1DA8- 


1450- 
1458- 
1460- 
1468- 
1470- 
1478- 
1480- 
1488- 
14490- 
1498- 
14A0- 
14A8- 
1480- 
1488- 
14C0- 
14C8- 
14D0- 
14D8- 
14E0- 
14E8- 
14FO- 
14F8- 
1500- 
1508- 
1510- 
1518- 
1520- 
1528- 
1530- 
4338= 
1540- 
1548- 
1550- 
1558- 
1560- 
1568- 
1570- 
1578- 
1580- 
1588- 
1590- 
1598- 
15A0- 
15A8- 
1580- 
1588- 
15C0- 
15C8- 
15D0- 
150D8- 
15E0- 
15E8- 
15F0- 
15F8- 
1600- 
1608- 
1610- 
1618- 
1620- 
1628- 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 

00 

00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 

00 

00 
00 
00 
00 

00 

00 

00 

00 

00 

00 


00 00 
00 00 
00 00 
00 0 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 


00 00 . 


00 00 
00 00 
00 00 
00 00 
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1630- 
1638- 
1640- 
1648- 
1650-~ 
1658- 
1660- 
1668-~ 


1670- 


1678- 
1680- 
1688- 
1690- 
1698- 
16A0- 
16A8- 
1680- 
16B8- 
165C0- 
16C8- 
16D0- 
16D8- 
16E0- 
16E8- 
16F0- 
16F8- 
1700- 
1708- 
1710- 
1718- 
1720- 
1728- 
4730= 
1738- 
1740- 
1748- 
1750- 
1758- 
14760- 
1768- 
1770- 
1778- 
1780- 
1788- 
1790- 
1798- 
17A0-~ 
17A8- 
178B0- 
1788-~ 
1750- 
1758- 
17D0- 
17D8- 
17E0- 
17E8- 
17F0- 
17F8- 
1800- 
1808- 
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1810- 
1818- 
1820- 
1828- 
1830- 
1838- 
1840- 
1848- 
1850- 
1858- 
1860- 
1868- 
1870- 
1878- 
1880- 
1888- 
1890- 
1898- 
18AO-~ 
18A8- 
18B0- 
188B8- 
18C0- 
18C8- 
18D0- 
18D8 

18E0- 
18E8- 
18F0- 
18F8- 
1900- 
1908- 
1910- 
1918- 
1920- 
1928- 
1930- 
1938- 
1940- 
1948- 
1950- 
1958- 
1960- 
1968- 
1970- 
1978- 
1980- 
1988- 
1990- 
1998- 
19A0- 
19A8- 
1980- 
1988- 
19C0- 
195C8- 
19D0- 
19D8- 
19E0- 
29E8= 


18C8- 


00 
00 


1DB0- 
1D88- 
1DC0- 
1DC8- 
1DD0- 
1DD8- 
1DE0- 
1DE8- 
1DF0- 
1DF8- 
1E00- 
1E08- 
1E10- 
1E18- 
1E20- 
1E28- 
1E30- 
1E38- 
1E40- 
1548- 
1E50- 
1E58- 
18560- 
1E68- 
1E70- 
1E78- 
1E80- 
1E88- 
1E90- 
1598- 
1EAO- 
1EA8- 
1EB0- 
1EB8- 
1EC0- 
1E5C8- 
1ED0- 
1ED8- 
1EE0- 
1EE8- 
1EF0- 
1EF8- 
1F00- 
1F08- 
1F10- 
1F18- 
1F20- 
1F28- 
1F30- 
1F38- 
1F40- 
1F48- 
1F50- 
4F58- 
1F60- 
1F68- 
1F70- 
1F78- 
1F80- 
1F88- 


249 


1F90- 00- 
1F98- 00 
1PFAO- 00 
1FA8- 00 
1F80- 00 
1F88- 00 
1FCO- 00 
1FC8- 00 
1FD0- 00 
1FD8- 00 
1FE0- 00 
1F58- 00 
IFF0- 00 
1FF8- 00 
2134-~- FF 
2138- FF 
2140- FF 
2148- FF 
21FD- FF 
2200- FF 
2208- FF 
2305- 00 
2308- FF 
2310- FF 
2318- FF 
25AD- FF 
25B0- FF 
2588- FF 
25C0- FF 
25C8- FF 
25D0- FF 
25D8- FF 
25E0- FF 
25E8- FF 
25F0- FF 
25F8- FF 
2613- FF 
2618- FF 
2620- FF 
2628- FF 
2630- FF 
2638- FF 
2640- FF 
2648- FF 
2650- FF 
2655- FF 
2660- FF 
2668- FF 
2670- FF 
2678- FF 
2680- FF 
2688- FF 
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2690- 
2698- 
26A0- 
26A8- 
2680- 
2688- 
26C0-* 
26C8- 
260D0- 
26D8- 
26E0- 
26E8- 
26F0- 
26F8- 
2700- 
2708- 
2710- 
2718- 
2720- 
2728- 
2730- 
2738- 
2740- 
2748- 
2750- 
2758- 
2760- 
2768- 
2770- 
2778- 
2780- 
2788- 
2790- 
2798- 
27A0- 
27A8- 
2780- 
2788- 
275C0- 
27C8- 
27D0- 
270D8- 
27E0- 
27E8- 
27F0- 
27F8- 
2800- 
2808- 
2810- 
2818- 
2820- 
2828- 
2830- 
2838- 
2840- 
2848- 
2850- 
2858- 
2860- 
2868- 


2870- 
2878- 
2880- 
2888- 
2890- 
2898- 
28A0- 
28A8- 
28B0- 
28B8- 
28C0- 
28C8- 
28D0- 
28D8- 
28E0- 
28E8- 
28F0- 
28F8- 
2900- 
2908- 
2910- 
2918- 
2920- 
2928- 
2930- 
2938- 
2940- 
2948- 
2950- 
2958- 
2960- 
2968- 
2970- 
2978- 
2980- 
2988- 
2990- 
2998- 
29A0- 
29A8- 
298B0- 
29B8- 
295C0- 
29C8- 
29D0- 
29D8- 
29E0- 
人 人 上 归 一 
29F0- 
29F8- 
2A00- 
2A08- 
2A10- 
2A18- 
2A20- 
2A28- 
2A3S0- 
2A38- 
2A40- 
2A48- 
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2C30- 
2C38- 
2C40- 
2C48- 
2C50- 
2C58- 
2C60- 
2C68- 
2C70- 
2C78- 
2C80- 
2C88- 
2C90- 
2698- 
2CAO- 
2CA8- 
2C8B0- 
2CB8- 
2CC0- 
2CC8- 
2CD0- 
2CD8- 
2CE0- 
2CE8- 
2CF0O- 
2CF8- 
2D00- 
2D08- 
2D10- 
2D18- 
2D20- 
2C28- 
2D30- 
2D38- 
2D40- 
2D48- 
2D50- 
2D58- 
zZD60- 
20D68- 
2D70- 
2D78- 
2D80- 
2D88- 
2D90- 
2D98- 
2DAO- 
2DA8- 
2DB0- 
2D88- 
2DC0- 
2DC8- 
2DD0- 
2DD8- 
2DE0- 
2DE8- 
2DF0- 
2DF8- 
2E00- 
2E08- 


232 


2E10- 
2E18- 
2E20- 
2E28- 
2E30- 
2E38- 
2E40- 
2E48- 
2E50- 
2E58- 
2E60- 
2E68- 
2E70- 
2E78- 
2E80- 
2E88- 
2E90- 
2E98- 
2EAO- 
2EA8- 
2EB0- 
2E88- 
2EC0- 
2EC8- 
2ED0- 
2ED8- 
全 医 E 从 二 
2EE8- 
2EF0- 
2EF8- 
2F00- 
2F08- 
2F10- 
2F18- 
2F20- 
2F28- 
22 下 30 一 
2F38- 
2F40- 
2F48- 
2F50- 
2F58- 
2F60- 
2F68- 
2F70- 
2F78- 
2F80- 
2F88- 
2F90- 
2F98- 
2FAO- 
2FA8- 
2FB0- 
2FB8- 
2FC0O- 
2FC8- 
2FD0- 
2FD8- 
2FE0- 
2FE8- 


FF 
FF 


FF 
FF 


FF 
FF 


3490- 
3498- 
34AO- 
34AB- 
34B0O- 
34B8- 
34C0- 
34C8- 
34D0- 
34D8- 
34E0O- 
34E8- 
34F0- 
34F8- 
3500- 
3508- 
3510- 
3518- 
3520- 
3528- 
3530- 
3538- 
3540- 
3548- 
3550- 
3558- 
3560- 
3568- 
3570- 
3578- 
3580- 
3588- 
3590- 
3598- 
35AO- 
35A8- 
338B0- 
35B8- 
3SC0- 
35C8- 
35D0- 
35D8- 
35E0O- 
35E8- 
35F0- 
35F8- 
3600- 
3608- 
3610- 
3618- 
3620- 
3628- 
3630- 
3638- 
3640- 
3648- 
3650- 
3658- 
3660- 
3668- 
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3670- 
3678- 
3680- 
3688- 
3690- 
3698- 
S6AO- 
36A8- 
3S6B0- 
3688- 
365C0- 
6C8- 
3600- 
360D8- 
36E0- 
36E8- 
36F0- 
36F8- 
3700- 
3708- 
3710- 
3718- 
3720- 
3728- 
3730- 
3738- 
3740- 
3748- 
3750- 
3758- 
3760- 
3768- 
3770- 
3778- 
3780- 
3788- 
3790- 
3798- 
37A0- 
37A8- 
37B0- 
3788- 
37C0- 
375C8- 
37D0- 
37D8- 
37E0- 
37E8- 
37F0- 
37F8-~ 


391D-~ 
3920- 
3928- 
3930- 
3938- 
3940- 
3948- 
3950- 
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3958- 
3960- 
3968- 
3970- 
3978-~ 
3980- 
3988- 
3990- 
3998- 
39A0- 
39A8- 
398B0- 
3988- 
39C0- 
39C8- 
39D0- 
39D8-~ 
39E0-~ 
39E8- 
39F0- 
39F8-~ 
SA0O0- 
3A08- 
3A10-~ 
3SA18- 
3A20- 
3A28- 
SA30- 
SA38- 
SA40O- 
SA48- 
3A50- 
3A58- 
3A60- 
3A68- 
3A70- 
SA78- 
3A80- 
SA88-~ 
3A90- 
3A98- 
3AAO- 
SAA8B- 


3AC9- 
3AD0O- 
3AD8- 
3AEO- 
3AE8-~ 
3AF0O- 
SAF8- 
3800- 
3808- 
3B10- 
3B18-~ 
3B20- 
3B28- 
3B30- 
3838- 


60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
4C 
FF 
FF 
FF 
00 
D0 
FF 
18 
00 
00 
58 
FF 
DF 
08 
96 
00 
FF 
FF 
4C 
FF 
00 
00 


80 
FF 
00 
FF 
FF 
FF 
F8 
02 
00 
08 
30 
FF 
FF 
FF 
FF 


3840O- 
3848-~ 
3B50- 
3858- 
3860- 
3868- 
“ 3870- 
5878- 
3880- 
3888-~ 
38B90- 
3898- 
3BAO- 
38AB8-~ 
38B0- 
38B8- 
38C0- 
58C8- 
58DO- 
38D8- 
3BE0- 
3BE8-~ 
3BFO- 
BF8- 
5C00- 
3C08- 
3C10- 
3C18- 
3C20- 
3C28- 
5C30O- 
3C38- 
3C40- 
3C48- 
3C50- 
3C58- 
3C60- 
3C68- 
3C70- 
3C78- 
3C80- 
3C88- 
3C90- 
3C98- 
3CAO- 
SCA8B- 
3C8B0- 
3CB8- 
3CC0- 
3CC8- 
3CD0- 
3CD8- 
3CE0- 
3CE8- 
3CF0O- 
3CF8- 
3D00- 
3D08- 
3D10- 
3018- 


3D20- 
3D28- 
3D30- 
3D38- 
3D40- 
3D48- 
3D50-~ 
3D58- 
3D60- 
3D68-~ 
3D70- 
3D78- 
3D80- 
3D88- 
3D90- 
3D98- 
3DAO- 
3DA8B- 
3DB0- 
3D88- 
3DC0O- 
3DC8- 
3DD0- 
3DD8- 
3DEO- 
3DE8- 
3DF0O- 
3DF8- 
3E500- 
3508- 
3E10- 
3E18- 
3E20-. 
3E28- 
3E30- 
3E38- 
3E40- 
3SE48- 
3E50- 
3E58-~ 
3E60- 
3E68- 
3SE70- 
3E78- 
3SE80- 
3E88- 
3E90- 
3E98- 
3EAO- 
3EA8- 
3EB0- 
3EB8- 
3EC0O- 
3EC8- 
3ED0O- 
3ED8- 
3EE0- 
3EE8- 
3EF0- 
3EF8- 
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3F00- 60 00 00 00 00 00 00 00 
SF08- C0 00 00 00 00 00 00 00 
3F10- 00 00 00 00 00 00 00 00 
SF18- 00 00 00 00 00 00 00 00 
SF20- 00 00 00 00 00 00 00 00 
3F28- 00 00 00 00 00 00 00 00 
3F30- 00 00 00 00 00 00 00 00 
SF38- 00 00 00 00 00 00 00 00 
SF40- 00 00 00 00 00 00 00 00 
3F48- 00 00 00 00 00 00 00 00 
SF50- 00 00 00 00 00 00 00 00 
3F58- 00 00 00 00 00 00 00 00 
3F60- 00 00 00 00 00 00 00 00 
SF68- 00 00 00 00 00 00 00 00 
SF70- 00 00 00 00 00 00 00 00 
SF78- 00 00 00 00 00 00 00 00 
3F80- 00 00 00 00 00 00 00 00 
SF88- 00 00 00 00 00 00 00 00 
SF90- 00 00 00 00 00 00 00 00 
3SF98- 00 00 00 00 00 00 00 00 
SFAO- 00 00 00 00 00 00 00 00 
SFA8- 00 00 00 00 00 00 00 00 
SFB0- 00 00 00 00 00 00 00 00 
3FB8- 00 00 00 00 00 00 00 00 
SFCO- 00 00 00 00 00 00 00 00 
3SFC8- 00 00 00 00 00 00 00 00 
3FD0O- 00 00 00 00 00 00 00 00 
3SFD8- 00 00 00 00 00 00 00 00 
3SFE0- 00 00 00 00 00 00 00 00 
3FE8- 00 00 00 00 00 00 00 0 
3FF0- 00 00 00 00 00 00 00 00 
3SFF8- 00 00 00 00 00 00 00 00 


401A- 00 00 00 00 00 00 

4020- 00 00 00 00 00 00 00 00 
4028- 00 00 00 00 00 00 00 00 
4030- 09 99 90 00 00 00 00 00 
4038- 00 00 0 00 00 00 00 00 
4040- 00 00 00 00 00 00 00 00 
4048- 00 00 00 00 00 00 00 00 
4050- OF 27 55 52 00 04 00 01 
4058-~ FF FF FF FF FF FF 00 01 
4060- 0A ED A8 00 00 00 FF 01 
4068- 08 76 10 D1 10 D1 10 FE 
4070- 95 FF 95 00 96 6A 04 6A 
4078- 04 0D 0E FF FF 00 08 01 
4080- 02 58 00 24 10 04 10 FF 
4088- 0A 00 FF FF 55 00 FF 03 
4090- 4C E5 0C FF D1 OF CA OF 
4098-~- FF FB 00 40 10 D0 D0 01 
40A0- 55 00 2D 00 00 80 00 00 
40A8B- 00 02 00 00 v1 04 01 03 
40B80- 08 E6 B8 D0 02 E6 8B9 AD 
40B8- 0D 0E 5C9 3A BO 0A C9 20 
4“0C0- FO EF 38 E9 30 38 E9 00 
40C8- 60 80 4F 5c7 52 08 FF FF 
40D0- FF 04 00 00 80 80 00 FF 
40D8- ADO 7F FF FF FF FF FF FF 


人 0EO- 


40E8- 00 27 UU FF FF FF FF FF 
40F0O- FF 01 00 00 2B 09 08 02 
40F8- F8 00 00 00 00 FF BF BF 


B.8 计算 机 做 英语 短文 程序 清单 


HOME POKE - 16368,0: TEXT 

G0SUB 800 

SPEEDz= 255 

CALL -~- 936: PRINT PRINT 
PRINT TAB( 11)”se MADLIB 斌 主 ” 
PRINT : PRINT TAB( 15)”"BY” 
PRINT TAB( 8)”"CREATIVE COMPU 
TING"”: PRINT 

PRINT TAB(.6)”"ADAPTED FOR TH 
上 _ APPLE” 

PRINT TAB( 9)"BY LOU LAURICH 


7 


PRINK 3 PRINT 

ruk X= 1 TO 3000: NEXT X 

DIM AS(11)v8S(5)v，CS(10) 

PRINT “OK。，，MWE'RE GOING TO WRI 
TE SOME STORIES-” 

PRINT “YOU'LL SUPPLY THE WORD 
S AND I"LL SUPPLY” 


PRINT ”THE PLOT.": PRINT 
PRINT "FIRST I NEED 11 ADJECT 
IVES。 THEY MODIFY” 


256 


70 


80 


?90 


PRINT "A NOUN。 (IE RED  DIRTY 
”， LARGE，ETC.) 

FOR I=17T0 11: INPUT AS(I): 
NEXT 工 

PRINT “NOW I NEED 5 ADVERBS . 
THEY MODIFY VERBS"… 

PRINT "AND END IN 'LY'-. (1E 
SLOwLY，，ETC-) 

FOR 1 = 1T0 5: INPUT 8$(1): 
NEXT 工 

PRINT PRINT “OK，NOW FOR 1 
0 NOUNS. (IE 0D0G6,BOATv,ETC) 
FOR I=17T0 10: INPUT CS(I) 

NEXT 工 
PRINT : INPUT "HOW ABOUT TWO 


MEN"S NAMES? “7;DS, 必 SS 


INPUT "THE FIRST NAME OF A 6 
IRL?3 “7FS 

INPUT “AND SOMEONE'S LAST NA 
ME? “76S 

INPUT ”"A GEOGRAPHICAL LOCATI 
ON? “7IHS 

_INPUT “A LIGQUID? “)1S 


INPUT "AND FINALLY AN EXCLAM 
ATORY WORD 0R TWO? “7JS 
PRINT “VERY 6G00D，WMWOULb Yo0U 
LIKE A:" 

PRINT : PRINT TAB( 10)…1 N 
EWS AD 

PRINT TAB( 10)"2 ATWESTERN 
PRINT TAB( 10)"3 A ARMY ST: 
ORY" 

PRINT TAB( 10)"4 ALETTER" 
PRINT : PRINT : INPUT "WHICH 
ONE? 1，2v，3.4 ”IN: PRINT 


IFN>0O ANDN《<“ 5 THEN 265: 
INPUT "COME ON NOW..-.1v,2v,3v4 
“IN: 60T0 250 

CALL -~- 936: SPEED= 
”TIT'M THINKING . 
SPEED= 20: FOR I = 
芝 

CALL -~- 936: SPEED= 25 
IF N=1 THEN 300 
IF Ne 2 THEN 400 
IF N= 3 THEN 500 
IF N= 4 THEN 600 
CALL - 936: PRINT 
”DAILY GRUNT CLASSIFIED”: 


25: PRINT 


1 T0 30: 


TAB( 10) 


PRINT “FOR SALE:1957 SEDAN- 
THIS “AS(1)” CAR” 
PRINT “JIS IN A “AS(2)” 
TION-。 IT WAS ” 

PRINT "0OWNED BY A ”AS(3)” SC 
HOOL TEACHER ” 


COND1I 


PRINT “WHO ALWAYS DROVE IT ” 

8S(1)”。 THERE” 

PRINT ”JIS A “AS(4)” ”CS(1)… 
IN THE BACK ” 

PRINT “SEAT。 IT HAS A CHRONME 
”CS(2)” ON THE” 

PRINT ”H00D。，A ”AS(5)” PAINT 
JOB， ”AS(6) 

PRINT "TIRES AND THE BACK 0P 

ENS INTO A ”AS(7) 

PRINT CS(3)” -WILL CONSIDER 

TAKING A” 

PRINT ”SLIGHTLY USED ”CS(4)” 
IN TRADE .” 

PRINT : PRINT “LOST: IN THE 

VICINITY OF ”HS…，” 

PRINT “A “AS(8)” FRENCH P00D 

LE WITH ”AS(9) 

PRINT ”HAIR AND A "AS(10)” T 

AIL。 IT ANSWERS” 

PRINT “TO THE NAME OF “FS…. 


WHEN LAST SEEN” 


PRINT “IT WMAS CARRYING A ”CS 
《52” ZN ITS “ 

PRINT “MOUTH- A “AS(11)” REW 
ARD IS OFFERED.” 

60T0 700 

CALL - 936: PRINT TAB( 10) 


”AN ADULT WESTERN” 


NEXT 


PRINT 


501 


520 


521 


530 


节 了 


540 


550 


555 


560 


561 


565 


570 


PRINT 
L OF 
PRINT 


“TEX “GS"”- 
”DSS… CITY" 
"RODE INTO TOWN- 
T "BS(2)” ON THE “ 
PRINT “SADDLE，READY FOR TRO 
UBLE- HE KNEW- THAT" 

PRINT “HIS "AS(1)” ENEMY，"E 
S” THE KID WAS ” 


PRINT ”IN TOWN。 THE XID WAS 
IN LOVE WITH TEX'7"S” 
PRINT “HORSE， “FS . 
THE KID CANME ” 
PRINT “0UT OF THE 
GGET SALOON.-” 
PRINT : PRINT ” "DRAW TEXv,' H， 
E YELLED ”BS(3)”-” 

PRINT “TEX REACHED FOR HIS ” 
CS(4)”v” 

PRINT “BUT BEFORE HE COULD 6 
ET IT 0UT 0DF HIS” 

PRINT CS(S)” THE KID FIRED， 
HITTING TEX IN ” 


THE MARSHAL 


HE SA 


SUDDENLY 


”AS(7)”NU 


PRINT “THE “CS(6)” AND THE ” 
CS(7)”.": PRINT 
PRINT "AS TEX FELL HE PULLED 


OUT HIS OWN "CS(8) 


PRINT “AND SHOT THE_ KID ”INT 
(30 em RND (1)) + 6”TIMES” 
PRINT “IN THE ”CS(9)“- THE K 
ID DROPPED IN” 

PRINT ” A POOL OF ”TS 所 
PRINT ”" "JS TEX SAID，I HA 


TED TO DO0 THAT"” 
PRINT “BUT HE WAS ON THE WRO 
NG SIDE OF THE” 
PRINT CS(10)”-” 


G0T0 700 

PRINT ”IF YOU PLAN ON JOININ 
G THE ARMY，，HERE” 

PRINT “ARE SOME “AS(11)… FIN 
TS THAT WILL HELP” 

PRINT “YOU BECOME A “AS(10)“ 
SOLDIER.“…: PRINT 

PRINT “THE ARMY JIS MADE UP 0 


F OFFICERSvNONCOMS” 

PRINT “AND “CS(1)"S . 
RECOGNIZE AN ” 

PRINT "OFFICER BY THE 

”ON HIS SHOULDERS” 
PRINT “AND THE FUNNY-LOOKING 
”CS(3)"S ON HIS” 


YOU CAN 


”CS(2) 


PRINT “CAP。 WHEN YOU ADDRESS 
AN OFFICER，SAY” 
PRINT CS(4)” AND SAY IT “8BS( 
5)"”。 IF YOU GET"” 
PRINT “A "AS(9)” HAIRCUT，KE 
EP YOUR ”CS(5)“"S7” 
PRINT “SHINED.。 AND SEE THAT 
YOUR "CS(6)” IS" 
PRINT ”CLEAN AT ALL TIMES，Y 


OU WILL BE A" 
PRINT “CREDIT TO THE SLOGAN: 
”: PRINT 

PRINT " THE ARMY BUILDS B 
ETTER “CS$(7)"S!…: PRINT 
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575 


576 


580 
585 


586 
590 
592 
595 
600 
601 
610 
620 
621 
630 
640 
650 
651 
655 
660 
661 
665 
670 
671 
675 
680 
681 
690 
700 


701 
705 
710 
720 
730 


735 
740 


PRINT "AT ROLL CALL，WHEN TH 
E “AS(8)” SERGEANT” 

PRINT ”CALLS YOUR NAME， SHOU 
下 二 二 人 日 Ow 

PRINT "AND CLEAR-”: PRINT 
PRINT ”YOU WILL BECOME 下 AMIL 
JIAR WITH WEAPONS” 

PRINT “LIKE THE -30 CALIBER 
”CS(8)” AND THE” 

PRINT ”AUTOMATIC ”CS(9)".-…: PRINT 
PRINT “FOLLOW THIS ADVICE AN 
D YOU MAY MIN THE:” 

PRINT “ 斌 训 训 让 本 "AS(7)” CONDUCT 
”CS(10)“=mz>sss'“ GO0TO0 700 
PRINT “BUST-A-BUTTON AND DUC 
K DEPT STORE” 

PRINT ”AKRON，0OHIO"”: PRINT 
PRINT ”DEAR SIRS:": PRINT 
PRINT ”LAST WEEK "I_ PURCHASED 
A "AS(2)” WATER” 

PRINT “BED IN YOUR STORE. II 

GOT IT FOR MY” 

PRINT AS(4)” WwWIFE WHO SLEEPS 
VERY “BS(1)” 

PRINT ”AND SAYS THAT ”AS(6)” 
WATER BEDS THAT” 

PRINT ”HAVE ”CS(1)“S IN THEKM 
MAKE HER ”CS(3) 

PRINT ”ACHE -。 WHEN THE BE5D AR 
RIVED MY 划 IFE 

PRINT “TESTED IT "8S(2)” AND 
SAID THE “AS(8) 

PRINT Cs(5)” WMAS BENT AND2 KE 
PT PRESSING INTO” 

PRINT "HER ”CS(6)"”- SHE SAYS 
THIS COULD LEAD ” 

PRINT "TO A "AS(10)” CONDITI 
ON' OF THE "CS(8): PRINT 
PRINT ”TI WOULD LIKE TO EXCHA 
NGE THIS “AS(9) 

PRINT “BED FOR ONE THAT MILL 
ALLOW MY WIFE” 

PRINT ”TO SLEEP “BS(4)” AND 
WON'T MAKE HER” 

PRINT CS(10)” SORE.-": PRINT 
: PRINT 

PRINT TAB( 10)"YOURS "8S$(5) 
7 

PRINT TAB( 10)FS$S "6S: PRINT 
FOR 1 = 1 TO 6: PRINT NEXT 
I 

SPEED= 200 

INPUT “MANT ANOTHER STORY? ” 
7YS 

IF YS = "N'"” THEN 900 

INPUT "MANT THE SAME WORDS? 
”1YS: PRINT 

IF YS =“Y”THEN 220 

IF YS = “"N"” THEN 60 

INPUT “COME. ON NOWv Y OR N 
”riYS: PRINT : 60T0 730 
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750 
760 
770 
772 
774 
776 
800 
805 
810 
815 
820 
830 
840 
850 
860 
870 
880 
890 


9300 


?10 
920 
930 
9340 
999 


PRINT “OK，SEE YOU WHEN Y0U0 
FEEL UP TO IT.” 
POKE  - 16368,0: 
: VTAB 10: HTAB 10: PRINT 
sa THE END ww es s'": END 
HTAB 20 - LEN (CTS) / 2 
PRINT CTS 
把 全 忒 本 和 生 人 
RETURN 
VTAB 4:CTS = 
: 60SU8 770 
CTS = "FROM CREATIVE COMPUTIN 
6G6": 60SU8 770 
CTS 当 = "BY LOU LAURICH”: 
770 
CTS = 
770 
避 了 二" 刁 


HOME : TEXT 


”天 间 网 AD LIB 于 刘 ” 


6G0SUB 


”0F 0HIO USERS GROUP": 60SUB 


"MARCH 1979": 60SU8 770 
CTS = "THIS 5_-LL WRITE STORIE 
S FORM YOUR": 6G0SU8 770 
CTS = “CHOICE OF WORDS": 
770 
VTAB 21: 
"TO0 END" 
PRINT "< PRESS THE SPACE BAR 
TO CONTINUE . . .> 
IF PEEK ( - 16384) = 
760 
TF，.EEK= 《7 
THEN 850 
PCKE  - 16368,0: HONE : RETLRN 


G0SUB 


PRINT ” PRESS 'ESC 


155 THENA 


16384 人 ) < > 160 


REMN GIVEN TO APPL5SE CORE CF 

SAN FRANCISCO F08 USE 

CQ MEMBERS 3yY 0ORIO USSRS 

GROUPv,WILLIAN R。DIAL.。 
RENM 
RENM 
RENM 
REM  “ 
END 


LAST MO0D。 JULY 1979 


MADLIB “" 


B.9 GRRD 窗口 程序 清单 


5 PRINT CHRS (4)"BLOADGRED.0BJ" 25010  POKE XpP,X / 7: POKE xpP + 1 
6 HIMEM: 8192 vX ~- PEEK (CxXP) es。 7: POKE YP 
10wWwz=1i:H= 1i:P= 1i:8ees1i:F = 1 PY: CALL 25677 
15 60SUB8 40000 25020 RETURN 
20 L1 = 25933:L2 = 25977;S] = 259 26000 CALL L1: CALL L2: RETURN 
55:S2 = 25991:XP = 24976:YP = 30000 IFA= 73 AND Y > = 8B THEN 
,24978:PA = 25010:PB = 25011: Y ayY- B 
Sw = 49232:MD = 24981:HL1 = 2 30005 IFA= 74 AND X > = B THEN 
4980 X=X- B 
30 POKE 249791: POKE 32256,1: POKE 30010 . IF A = 75 AND X + 8 + W < 
24988,3: CALL 25449 280 THEN X = X + B 
40 POKE Swv,0: POKE SW + 7v0: POKE 30015 IF Am 77 AND YY+Y B + H《 
SMW + 2,0: POKE SW + 4，0 192 THEN Y = Y + B 
50  POKE 230v32: CALL S1: CALL 5S2 30025 60SUB 25000:; RETURN 
6G0SU8 20000: CALL L1: CALL 40000 REM HELP 
L2 40010 TEXT :; HOME 
1010 A = PEEK (49152) -~- 128:A = 40020 PRINT ”GRAPHICS WINDOW PR 
Amw(A>0): IFA>7THEN POKE 0CESSOR” 
49168,0 40030 PRINT ”KEYS FUNCTION:” 
1015 HCOLORe 3: HPLDT XvY TO X + 40040 PRINT "tfII UP tJI LEFT 
W-iyYTOX+W- iiyY+ H- tKI RIGHT tMI DOMN7 
1TOXY+yH -1 TO XiyY: IF 40050 PRINT “ft11 NO t2zl AND L31 
MOT (A》 THEN 1010 OR tt4L EOR” 3 
1020 IF A=- 80 THENP = (P+ 1) *。 40060 PRINT "tfFI MOVE WINDOW/CHA 
(Po2+y (PP= 2): POKE SW + NGE WINDOW7” 
P + Sr0: POKE SWrv0: POK5S S + 40070 PRINT "ft51 CHANGE STEP": PRINT 
7,0: POKE Sw + 2-0: POKE 230 ”tPI PAGE": PRINT “twWi WRITE 
ZE 32 ”: PRINT "ftESCI EXIT TO TEXT 
1022 IFA= 70 THEN F = NOT FF MODE” 
l025 IFA= 83 THEN = (B + 9) * 40090 PRINT : PRINT ”PRESS ANY 
(B=1)+ (8 = 10) KEY TO CONTINUE": GET AS: RETURN 
1030 IF A > 48 AND A< 53 THEN POKE 6000- 00 00 00 00 00 00 00 00 
24998,A -~ 49: CALL 25449 6008- 80 80 80 80 80 80 80 80 
1035 . IF F = 1 THEN 1080 6010- 00 00 00 00 00 00 00 00 
1040 IFA= 73 AND H > B THEN H = 60182 80 80 80 80 80 80 80 80 
H ~ B 6020- 00 00 00 00 00 00 00 00 
1050 IFA= 77 AND H+ B“ 192 THEN 6028- 80 80 80 80 80 80 80 80 
HB 6030- 00 00 00 00 00 00 00 00 
1060 IFA = 74 AND W > B THEN W z= 6038- 80 80 80 80 80 80 80 80 
W - 8 6040- 28 28 28 28 28 28 28 28 
1070 IFA= 75 AND W+ B< 280 THEN 6048- AB A8 A8 A8 A8 A8 A8 A8 
妇 6050- 28 28 28 28 28 28 28 28 
1075 60T0 1090 6058- A8 A8 A8 AS8 A8 A8 A8 A8 
1080 60SU8 30000 6060- 28 28 28 28 28 28 28 28 
1090 IF (A= 73 0ORA = 74 0R A = 6068- A8B A5 AB A8 A8 A8 A8 A8 
75 0OR A = 77) AND ( NOT F) 7HEN 6070- 28 28 28 28 28 28 28 28 
G0SUB 20000 6078- A8 A8 AB A8 A8 A8B A8 A8 
1100 IFA = 87 THEN 20 6080- 50 50 50 50 50 50 50 50 
1110 IFA = 27 THEN CALL LI: CALL 6088- D0 D0 D0 D0 DO D0 DO0 DO 
L2z: TEXT : END 6090- 50 50 50 50 50 50 50 50 
1140 6G60T0 1010 6098- D0 D0 D0 DO0 D0 D0 D0 D0 
20000 60SU8 26000 60AO- 50 50 50 50 50 50 50 50 
20005  POKE XP,X / 7: POKE XP + 1 60A8B- D0 D0 D0 D0 DO0 D0 D0 DO 
MX -~- PEEK (XP) ea 7: POKE YP 6080- 50 50 50 50 50 50 50 50 
YY 6088- D0 D0 D0 D0 D0 DO D0 D0 
20010  POKE WD + 1, 省 /1 256: POKE 60C0- 00 04 08 0C 10 14 18 1 
wWDv,WW- PEEK (wD + 1) wm 256: 60C8- 00 04 08 0C 10 14 18 1 
POKE HIv,H: CALL 25489 640D0- 01 05 09 00D 11 25 19 1D 
20020 RETURN 60D8- 01 05 09 00 11 15 19 10 
25000 60SUB 26000 60E0- 02 06 0A 0OE 12 16 1A 1E 


60E8- 02 
60F0- 03 
60F8- 03 
6100- 00 
6108- 00 
6110- 01 
6118- 01 
6120- 02 
6128- 02 
6130- 03 
6138- 03 
6140- 00 
6148- 00 
6150- 01 
6158- 01 
6160- 02 
6168- 02 
6170- 03 
6178- 03 
6180- 00 
6188- 00 
6190- 00 
6198- 00 
61A0- 00 
61A8- 00 
6180- 00 
6188- 00 
6150- 
61C3- 
61C6- 
615C8- 
61CB- 
615C- 
61CE- 
6100- 
61D3- 
61D4- 
61D7- 
6109- 
61D8- 
61DE- 
61E0- 
61E2- 
61E4- 
61E7- 
61EA- 
61EB- 
61EE- 
61F0- 
61F2- 
61F5- 
61F6- 
61F8- 
61F8- 
61FE- 
61FF- 
6202- 
6204- 


260 


61 


61 


61 
61 


61 


61 


61 
61 
61 


61 


SS61A2 
SS6000,Y 
SF9 
S60COvY 


和 E6 
SFA 
SS61A0 


SS61A0 
#S27 
$61E8 
S61A1 
MSO6 
3S6l1E8 
NSsS0O0 
s6l1A0 
S61A1 


SS61A1 
hjS06 

S61F6 
S61A1 


NSsS00 
S61A1 
S61A0 


SS61A0 
邓 6214 
SS61A1 


6207- 
6209- 
6208- 
620E- 
6210- 
6213- 
6214- 
6217- 
6219- 
62186- 
621E- 
621F- 
6221- 
6224- 
6227- 
6228- 
6228- 
6220D- 
622F- 
6231- 
6234- 
6235- 
6238- 
6239- 
623C- 
623E-~ 
6240- 
6243- 
6244- 
6247- 
6248- 
62486- 
624E- 
6250- 
6251- 
6 二 52= 
6253= 
6255- 
6257- 
6259- 
6255- 
625D- 
6260- 
6263- 
6265- 
6266- 
6267- 
6268- 
626A- 
6265- 
626E- 
6271- 
相遇 = 
6274- 
6277- 
6278- 
627A- 
6278- 
6275- 
627D- 


D0 
A9 
8D 
A9 
8D 
60 
AD 
5C9 
F0 
CE 
60 
A9 
8D 
CE 
60 
AD 
C9 
D0 
A9 
8D 
60 
EE 
60 
AD 
D0 
A9 
8D 
60 
CE 
60 
20 
AE 
A9 
38 
2A 
CA 
10 
09 
31 
8D0 
60 
20 
AE 
A9 
18 
2A 
CA 
10 
29 
31 
0D 
91 
60 
AE 
CA 
A9 
38 
2A 
CA 
10 


08 
27 
AO 
06 
A1 


Al1 
00 
04 
A1 


06 
A1 
AO 


A2 
CO 
06 
00 
A2 


A2 


A2 
06 
BF 
A2 


AZ 


CO 
A1 
00 


F( 
80 
F9 
9E 


CO0 
A1 
FF 


FC 
7F 
F9 
9?E 
F9 


99 


00 


F(C 


61 
61 


61 


61 


61 
61 


61 


61 
6 


61 


61 
61 


61 
61 


61 


61 
61 


61 


61 


BNE 
LDA 
STA 
LDA 
STA 
RTS 
LDA 
CMP 
BEQ 
DEC 
RTS 
LDA 
STA 
DE( 
RTS 
LDA 
CMP 
BNE 
LDA 
STA 
RTS 
TITNC 
RTS 
LDA 
BNE 
LDA 
STA 
RTS 
DEC 
RTS 
JSR 
LDX 
LDA 
SEC 
ROL 
DEX 
SR2L 
DORA 
AND 
STA 
RTS 
JSR 
LDX 
LDA 
EEE 
ROL 
DEX 
BPL 
AND 


- AND 


ORA 
STA 
RTS 
LDX 
DEX 
LDA 
SEC 
ROL 
DEX 
BPL 


SS6214 
mhS27 
SS61A0 
NSO6 
SS61A1 


S61A1 
NSO0 

S621F 
S61A1 


WSOO 
S61A1 
S61A0 


S61A2 
NSCO 
SS6235 
NSsS0O0 
s61A2 


S61A2 


S61A2 
S6244 
者 SBF 
S61A2 


S61A2 


S6150 
S6lA1 
NSs0O0 


SS6251 
NS80 
(SF9)vY 
S619E 


S61C0 
S61A1 
为 有 FF 


S6266 

放 到 7F 
(SF9)vY 
s619E 
(SF9)vY 


SS6199 


PS00 


S$627B 


627F- 
6282- 
6284- 
6287- 
628A- 
6280- 
628F- 
6291- 
6294- 
6297- 
629A- 
6290- 
629F- 
62A0- 
oz2A1- 
62A4- 
62A7- 
62A8- 
62AB- 
62AD- 
62AE- 
62AF- 
6280- 
6281- 
6282- 
6285- 
6288- 
62BA- 
628D- 
62C0- 
62C2- 
62C4- 
62C5- 
62C6- 
625C9- 
62CB- 


， 62CE- 


62D1- 
62D2- 
62D5- 
62D7- 
62DA- 
62DD- 
62E0- 
625E2- 
62E4- 
62E5- 
62E6- 
62E9- 
62EA- 
62EC- 
62ED- 
62BE-~ 
起 过 丰采 二 
各 到 于 二 = 
62F4- 
6277- 
62FA- 
62FB- 
62FD- 


8D 
49 
2D 


'8D 


AD 
29 
FO 
AD 
0D 
8D 
AD 
29 
18 
2A 
6D 
8D 
60 
AD 
29 
OA 
OA 
OA 
OA 
OA 
0D 
AC 
91 
EE 
AD 
D0 
E6 
60 
00 
AD 
D0 
CE 
CE 
60 
AC 
B1 
8D 
EE 
AD 
D0 
E6 
60 
00 
AE 
CA 
A9 
38 
2A 
CA 
10 
2D 
8D 
AE 
38 
A9 
2A 


A3 
04 


62 


62 


61 


区 1 
61 
61 


STA 
EOR 
AND 
STA 
LDA 
AND 
BEQ 
LDA 
ORA 
STA 
LDA 
AND 
CLC 
ROL 
ADC 
STA 
RTS 
LDA 
AND 
ASL 
ASL 
ASL 
ASL 
ASL 
ORA 
LDY 
STA 
INC 
LDA 
BNE 
INC 
RTS 
BRK 
LDA 
BNE 
DEC 
DEC 
RTS 
LDY 
LDA 
STA 
INC 
LDA 
BNE 
INC 
RTS 
BRK 
LDX 
DEX 
LDA 
SEC 
ROL 
DEX 
BPL 
AND 
STA 
LDX 
SEC 
LDA 
ROL 


S6185 
关 有 FF 

S619(C 
S6195 
S619E 
者 要 7F 

S629A 
S619( 
S6185 
S619(C 
S619E 
#S80 


S61A3 
S61A3 


S61A3 
疼 有 0O4 


和 S619( 
SS6255 
《SFD)vY 
S6255 
S625C5 
S62C4 
SFE 


SS61AC 
S62CE 
S$S61A5 
SS61A4 


S62E5 
(SFD)vY 
3S619( 
S62E5 
S62E5 
S62E4 
SFE 


SS6199 


##SO0O 


攻 子 


FB 
FB 
FC 
00 


-< 下 (C 


8D 
2(C 
A6 
0C 


OF 


12 


61 


7E 


7E 


63 
61 


DEX 
BPL 
STA 
LDA 
BEQ 
LDA 
STA 
LDA 
AND 
ORA 
STA 
RTS 
LDA 
AND 
STA 
LDA 
AND 
DRA 
STA 
RTS 
LDA 
STA 
STA 
LDA 
STA 
STA 
INC 
LDX 
LDY 
DEX 
BEG 
LDA 
CLC 
ADC 

STA 
LDA 
ADC 

STA 
INY 

INY 

INY 

TIRNY 

INY 

BPL 

TYA 
CLC 

ADC 

STA 
LDA 
ADC 

STA 
RTS 
LDA 
STA 
LDX 

BEQ 
DEX 

BEQ 

DEX 

BEQ 


S62FD 
3S6186 
S6185 
S630( 
S6186 
S6185 
#S80 

S619( 
S6185 
S$S619E 


S61AB 
$S619E 
S61AB 
S$619E 
#S80 

S61AB 
S619E 


#SO0 
和 SFD 
$FB 
NS7E 
SFE 
SFC 
和 FE 
S6193 
jsSO1 


SS635(C 
S7E00v,Y 


SFD 
SFD 
S7E0OT,Y 
SFE 
SFE 


S6343 


SFB 
SFB 
SF(C 
# 有 00 
下 


#S8D 

S632( 
S61A6 
$S637F 
S6385 


S6388B 


261 


6379- A9 
6378-~ 8D 
637E- 60 
637f- A9? 
6381-~ 8D 
6384- 60 
6385- A9 
6387-~ 8D 
638A-~ 60 
638B- A9 
638D- 8D 
6390- 60 
6391-~ AD 
6394- 8D 
6397-~ 20 
639A- AO 
639C- AD 
639F- 91 
63A1I- C8 
63AZ- AD 
63A5~ 91 
63A7- C8 
63A8- AD 
丘 3AB-~ 91 
63AD-~ 80D 
6380-~ AD 
63B3S- 8D 
63B6- AD 
63B9- 8D 
63B6(C- AD 
63BF- 8D 
63C2- A9 
63C4- 8D 
才 史 下 下 关 8D 
63CA- 8D 
636CD- AD 
63DO- 8D 
63D3-~ AD 
63De- 8D 
63D9- A9? 
63DB-~ 8D 
63DE- A9 
63E0- 8D 
63SE3-~ 80D 
63E6- 20 
3E98= 20 
63EC= EE 
63EF- 20 
63F2- 20 
名 3F SS AD 
丰 3 人 = D0 
63SFA- AD 
63FD- D0 
63FF- 4C 
6402- AD 
6405-~ C9 
6407- 30 
6409- 20 
640C- 下 攻 
640F- AD 


262 


6 了 


63 


63 


LDA 
STA 
RTS 
LDA 
STA 
RTS 
LDA 
STA 
RTS 
LDA 
STA 
RTS 
LDA 
STA 
JSR 
LDY 
LDA 
STA 
TINY 
LDA 
STA 
INY 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 


.STA 


上 DA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
JSR 
JSR 
工 NC 
JSR 
JSR 
LDA 
BNE 
LDA 
BNE 
JMP 
LDA 
CMP 
BMI 
JSR 
TINC 
LDA 


间 S4D 
和 S631E 


NSAD 
S632C 


间 S2D 
S6315 


#SOD 
SS631E 


$S7E00 
S6193 
S6330 
多 SO2 
SS6195 
《SFB)vY 


S6196 
(SFB)vY 


SS6194 
《SFB)7Y 
SS61IA7 
S6192 
S6l1A2 
S6190 
S61A0 
S6191 
S62Ai 
#SO00 
S61297 
S6198 
S625C5 
S6195 
S61A4 
3S6196 
要 61A5 
jhSC1 
S$S6199 
S$00 
S619( 
S61A3S 
3S6248 
S6274 
S6199 
$62C6 
S61D4 
$61A4 
S6402 
SS61A5 
S6402 
S641A 
S6199 
#S08， 
$63E6 
S62A8 
S6197 
s6197 


6412- 
6414- 
6417- 
641A- 
641D- 
6420- 
6423- 
6425- 
6428- 
6428- 
642E- 
6L30- 
6433- 
“6436- 
6439- 
643C- 
643F- 
6441- 
6404- 
6446- 
6447- 
折 44A- 
644C- 
644D- 
644E- 
644F- 
6450- 
6451- 
6452- 
6453- 
6456- 
6459- 
645C5- 
645F-~ 
6462- 
6465- 
6468- 
646A- 
646C- 
646F- 
6470- 
6472- 
6475- 
6476- 
6478- 
6478- 
647E- 
6480- 
6483- 
6486- 
6489- 
648C- 
648F- 
6492-~ 
6495- 
6497- 
649A- 
649D- 
64A0- 
64AS- 


30 
30 
AO 
891 
A- 
92 
A2 
02 
FB 
95 


_FB 


96 


FB 
394 
A7 
00 
937 
98 
人 
9895 
A4 
96 
A5 
01 
99 
D2 
48 
AB 
E6 


61 
63 
62 
61 
61 


61 
61 
61 


61 
61 
61 
61 
63 


61 


61 


63 
在 
6 
人 
BE 
6- 
61 


61 


61 


BNE 
TINC 
JMP 
JSR 
INC 
LDA 
BNE 
INC 
1】 ALC 
DEC 
BEQ 
LDA 
STA 
LDA 
STA 
JMP 
LDY 
LDA 
STA 
INY 
LDA 
STA 
RTS 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
JSR 
L9?A 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
TINY 
LDA 
STA 
STA 
LDA 
STA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
STA 
JSR 


S63D9 
S6198 
3S63D9 
S62A8 
$63197 
S6197 
SS6428 
5356198 
S61A2 
S61A7 
有 643F 
$6190 
S6lA0 
$6191 
S61A1 
S63CD 
#S00 
$S6197 
《SFB)vY 


S6198 
《SFB)vY 


S6330 
S6190 
s61A0 
S361492 
S62 人 :- 
sS6192 
Ss61Az2 
#SO2 
(SF5)vY 
SsS6195 


(SFB)vY 
3$361296 


(SFB)vY 
S6194 
S61A7 
hs$S0C 
S6197 
356198 
562855 
SS6195 
SS61A4 
SS6196 
$61A5S 
NSO1 
S6199 
S$620D2 
3S6248 
SS62A53 
S62E6 


64AG6- 
64A9- 
64AC- 
64AF- 
64B2- 
64B5- 
64B8- 
64BA- 
64BD- 
64BF- 
64C2- 
64C5- 
64C7- 
64C9- 
64CC- 
64CF- 
64D1- 
64D4- 
64D7- 
64DA- 
64DC- 
64DE- 
64E1- 
64E4- 
64E6- 
64E9- 
64EA- 
64ED- 
64F0- 
64F2- 
64F5- 
64F8- 
64F6- 
64FE- 
6501- 
6502- 
6504- 
6507- 
650A- 
650D- 
6510- 
6511- 
6513- 
6516- 
6519- 
65168- 
6516- 
6521- 
6524- 
6527- 
6529- 
6528- 
6S2E= 
6531- 
6533- 
6536- 
6537- 
653A-~ 
6530D-~ 
6540- 


20 
20 
EE 
20 
20 
AD 
0D0 
AD 
D0 
4C 
AD 
C9 
30 
区 攻 
AD 
DO0 
EE 
4C 
AD 
e9 
10 
EE 
AD 
D0 
EE 
EA 
EE 
CE 
FO 
AD 
8D 
AD 
8D 
4C 
60 
A9 
8D 
8D 
8D 
AD 
18 
69 
8D 
AD 
69 
80D 
EE 
AD 
CD 
90 
D0 
AD 
CD 
?90 
AD 
38 
ED 
AD 
ED 
80 


JSR 
JSR 
INC 
JSR 
JSR 
LDA 
BNE 
LDA 
BNE 
JMP 
LDA 
CMP 
BMI 
INC 
LDA 
BNE 
INC 
JMP 
LDA 
CMP 
BPL 
INC 
LDA 
BNE 
INC 
NOP 
INC 
DEC 
BEG 
LDA 
STA 
LDA 
STA 
JMP 
RTS 
LDA 
STA 
STA 


. STA 


LDA 
CLC 
ADC 
STA 
LDA 
AD(C 
STA 
IN( 
LDA 
CMP 
BCC 
BNE 
LBA 
CMP 
8CC 
LDA 
SEC 
SB(C 
LDA 
SBC 
STA 


S6318 
$S6250D 
S$S6199 
S62C6 
和 61D4 
和 61A4 人 
S$64C2 
S61A5 
S64C2 
S64D7 
S6199 
六 SOD 
SS649D 
S6197 
S6197 
S6495 
3S6198 
S6495 
S6199 
#SO8 
S64E9 
S6197 
SS6197 
S64E9 
S6198 


S61A2 
S61A7 
和 S6501 
S6190 


S61A0- 


SS6191 
S61A1 
S6489 


##S0O0 

S61AA 
3S6182 
S6183 
S6182 


罚 有 07 
S6182 
$S6183 
#S0O0 
S6183 
S61AA 
S6183 
3S61296 
S650D 
SS6533 


S6182“ 


3S6195 
$650D 
S6183 


S$S6196 
S$S6182 
S6295 
S$S6182 


6543- 
6545- 
6546- 
6549- 
654C- 
654D- 
654F- 
6552- 
6554- 
6557- 
655A- 
655C- 
655F- 
6562- 
6563- 
6565- 
6568- 
656A- 
656D- 
6570- 
6572- 
6575- 
6578- 
6579- 
657B- 
657E- 
6580- 
6583- 
6586- 
6587- 
6589- 
658C- 
658E- 
6591- 
6594- 
6595- 
6598- 
659B- 
659D- 
65A0- 
65A3- 
65A6- 
65A9- 
65AA- 
65AD- 
658B0- 
6582- 
6585- 
658B8- 
6588- 
65BE- 
65BF- 
65C2- 
65C5- 
65C7- 
65CA- 
65CD- 
65D0- 
65D3- 
65D4- 


A9 
38 
ED 
8D 
60 
A9 
8D 
A9 
8D 
20 
A9 
8C 
20 
60 
A9 
8D 
A9? 
8D 
20 
A9? 
8D 
20 
60 
A9 
8D 
A9 
8D 
20 
60 
A9 
8D 
A9 
8D 
20 
60 
AD 
AD 
A9 
8D 
20 
AD 
AD 
60 
AD 
AD 

A9 

8D 

20 

AD 

AD 

60 

AD 

AD 

A9 

8D 

20 

AD 

AD 
60 

8A 


61 
61 


LDA 
SEC 
SBC 
STA 
RTS 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
RTS 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
RTS 
LDA 
STA 
LDA 
STA 
JSR 
RTS 
LDA 
STA 
LDA 
STA 
JSR 
RTS 
LDA 
LDA 
LDA 
STA 
JSR 
LDA 
LDA 
RTS 
LDA 
LDA 
LDA 
STA 
JSR 
LDA 
LDA 
RTS 
LDA 
LDA 
LDA 
STA 
JSR 
LDA 
LDA 
RTS 
TXA 


才 SO7 


SS6182 
SS619B 


WwWSDO 
SS6180 
ws20 
S$6181 
S$S6595 
HgS30 
SS6lB1 
S65AA 


hsS20 
SS61B0 
WSDO 
S6181 
S6595 
NS30 
$6180 
S65AA 


刘 SEO 
S6180 
hgS4O 
SS6181 
S65BF 


才 s4O 
S6180 
NSEO 
S3S6191 
S65BF 


SC083 
SC083 
#S10 

$6553 
S65D4 
SC082 
SC082 


SC088 
s$C088 
#S10 

5S65E3 
$S6504 
SCO08A 
SC08A 


SC083 
SC083 
HS20 

$S65E3 
$650D4 
SC082 
SC082 
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65D5- 48 
65D6- AD 
65D9- 8D 
65DC- AD 
45DF- 8D 
65E2- A2 
65E4- 20 
65E7- CA 
65E8- F0 
65EA- EE 
65ED- E 圾 
65F0- 4C 
65F3- 68 
65F4- AA 
65F5- 60 
65F6- AO 
65F8- B9 
65F8- 399 
65FE- C8 
看 汪 末 一 DO 
6601- 60 
6602- AO 
6604- AO 
6606- AO 
6608- CC 
6608- C1 
6600- D3 
660E- D4 
660fF- D2 
6610- C9 
6612- C7 
6613- AO 
6615- CE 
6618- D4 
6619- 01 
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61 
65 
61 
65 


65 


65 
65 
65 


20 
40 


C8 


D5 


PHA 
LDA 
STA 
LDA 
STA 
LDX 
JSR 
DEX 
BEQ 
INC 
INC 
JMP 
PLA 
TAX 
RTS 
LDY 
LDA 
STA 
INY 
BNE 
RS 
LDY 
LDY 
LDY 
CPY 
CMP 
2322 
机 
人 
CMP 
全 于是 
LDY 
DEC 
汪汪 党 


ORA 


6618- 
s618B0 661E- 
S65FA 6620- 
S$61B1 6621- 
S65FD 6624- 
#S20 6626- 
S65F6 6628- 

662A- 
S65F3 662C- 
S65FA 662E- 
S65FD 662F- 
S65E4 6632- 

6634- 

6636- 

6638- 
#S0O0 663A- 
S2000,Y 663C- 
S4000v 必 Y 663F- 

6640- 
S65F8 6642-~ 

664X4- 
##SAO 6645-， 
##SBA 6647- 
W 有 CT 6649- 
SC8D0 6648- 
(SAOvX) 

664C- 

664E- 

6650- 
# 有 CE 6652- 

6653- 
#SC9 6655- 
s$D500 6656- 

6658- 


(S1F,X) 665A- 


5D 


AO 


D2 


C4 


DEC 
LDY 
?233 
CPY 
LDY 
LDY 
CMP 
CMP 
LDY 
?3?? 
CPy 
LDY 
CMP 
CNMP 
ORA 
CPX 
EOR 
CLD 
LDY 
LDY 
TSX 
LDY 
CMP 
CMP 


?2?? 


CNMP 
BNE 
CMP 
过 要 党 
LDY 
当 本 全 
CMP 
DRA 


?323 


S5D00v,X 
# 有 CS 


SAOD2 
#SBA 
#SC8 
#S$SD2 
SD3 
NSC3 


SD2CF 
jgSD6 
(和 CCvX) 
李 C5vX 
《SS20vX) 
#S$00 
SC4AOvX 


W 李 AO 
尹 李 AO 


WSD2 
要 CC 
SC1 


SAO 
和 S661F 
六 有 CE 


#SD3 


SD0 
《SS1DvX) 


附录 C 各 类 实例 游戏 程序 的 玩法 介绍 


C.1 七巧板 构图 

1 游戏 名 称 

E 巧 板 构图 

2.， 游戏 说 明 

本 游戏 有 七 块 形 状 各 异 的 模板 ,操纵 者 通过 自己 的 构思 
和 想象 , 拼 成 各 种 有 趣 的 图 形 。 本 游戏 可 帮助 青少年 开发 知 
力 ,锻炼 创造 性 思维 和 发 散 性 思维 ,使 游戏 者 在 有 趣 的 游戏 之 
中 得 到 智力 上 的 锻炼 。 

3， 玩法 介绍 

(启动 : 将 装 有 本 游戏 的 软磁盘 放 入 软磁盘 驱动 器 中 , 然 
后 打开 显示 器 及 主机 的 电源 开关 ( 若 电源 已 打开 , 则 打 入 
PR 共 6<CR >) 则 本 游戏 将 被 自动 调和 人 并 执行 。 

(2) 键 盘 的 使 用 : 本 游戏 执行 后 ,将 首先 显示 本 游戏 的 操 
纵 键 使 用 说 明 。 


<O> 使 选 定 的 模板 向 左 移动 ; 
< 了 > 使 选 定 的 模板 向 右 移动 ; 
<A> 使 选 定 的 模板 向 上 移动 ; 
去 忆 友 使 选 定 的 模板 向 下 移动 ; 
<< > 使 选择 箭头 向 左 移动 ,指向 左 侧 的 模板 ; 
< 一 > 使 选择 箭头 向 右 移动 ,指向 右 侧 的 模板 ; 
<E> 表 泵 此 次 图 形 已 拼 完 ,重新 -开始 拼 另 一 幅 
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图 形 ; 
< 空格 键 > 调节 七 巧 板 移动 速 束 度 的 快慢 : 
< 十 > 加 快 模板 移动 速度 ; 
< 一 > 降低 模板 移动 速度 ; 
<ESC> 退出 本 游戏 的 使 厅 。 


当 操纵 者 记 住 了 每 个 操纵 键 的 功能 后 ,可 按 任意 键 开 始 
游戏 。 

(3) 玩 法 规则 

]) 每 次 只 能 移动 一 块 七 巧 板 , 若 需 移 另 一 块 , 则 需 移动 选 
择 箭头 进行 选择 。 

2) 人 在 本 游戏 中 每 块 模板 只 能 旋转 八 个 角度 。 

3) 当 图 形 拼 成 后 , 才 可 按 正 键 重新 开始 新 的 一 轮 拼 图 . 

4.， 玩法 技巧 

七 巧 板 游戏 是 一 个 比较 特殊 的 游戏 , 它 不 象 其 他 游戏 那 
样 有 一 定 的 规律 可 循 。 本 游戏 的 拼图 技巧 变幻 无 穷 ,这 是 其 
魅力 所 在 。 

因此 , 若 你 希望 得 知 本 游戏 的 玩法 技巧 ,请 不 妨 尝试 一 下 
自己 能 拼 出 多 少 个 图 形 。 


C.2 ”战争 游戏 一 一 飞机 炸 坦克 

1 游戏 名 称 

炸 坦克 。 

2.， 游戏 说 明 

本 游戏 是 由 游戏 者 操纵 一 架 释 炸 机 对 敌 军 的 坦克 车 进行 
胡 炸 。 盘 炸 机 不 断 地 在 由 计算 机 操纵 移动 的 坦克 车 上 空 盘 
旋 、 扔 炸弹 ,直至 击 中 政 方 坦 克 。 


由 于 本 游戏 的 操纵 极为 简单 ,网 象 音 响 生 动 、 通 真 ,尤其 
适宜 于 少年 儿童 游戏 , 它 可 培养 、 锻 炼 儿童 们 的 判断 力 和 反 
应 能 力 ， 

3. 人 


开 吕 示 大 及 证 机 电源 开 关 做 机 器 电 源 已 开 , 则 和 人 
PR 共 6<CR> 来 启动 ), 本 游戏 程序 将 被 自动 调 人 并 执行 。 

(2) 键 盘 的 使 用 

本 游戏 的 操纵 极其 简便 , 当 乡 炸 机 飞 至 坦克 前 方 时 ， 
按 一 下 任何 一 全 键 ( 除 功 能 键 外 ) 即 可 扔 下 炸弹 ;攻击 政 方 的 志 
克 车 。 

(3) 玩 法 规则 

1) 当 扔 上 下 一 颗 炸 弹 后 ,在 此 炸弹 未 落地 之 前 ,不 能 再 次 扔 
炸弹 ,必须 待 稻 炸 机 准备 好 一 颗 炸弹 , 方 能 再 次 扔 阐 。 

人 
的 场面 作为 奖励 。 

4 玩法 技巧 

判断 氢 炸 机 的 备 弹 情况 : 

当 钳 炸 机 扔 下 一 颗 炸弹 后 , 若 该 炸弹 尚未 爆炸 ,计算 机 将 
根据 本 游戏 规则 自动 禁止 炸弹 的 连 扔 。 此 时 ,游戏 者 可 根据 

稻 炸 机 的 变化 来 判断 是 否 已 准备 好 炸弹 。 若 已 准备 好 , 则 在 

这 炸 机 的 机 身 下 面 显 示 一 个 和 白 点 , 若 无 此 白 点 , 则 和 暂时 还 不 能 
扔 炸弹 。 

“和 擎 握 扔 炸 阐 的 时 机 : 

由 于 在 本 游戏 中 ,坦克 车 和 盘 炸 机 始终 以 固定 不 变 的 速 
度 向 前 行驶 ,所 以 游戏 者 只 要 正确 掌握 扔 炸弹 的 时 机 , 即 可 命 
中 目标 ,由 于 飞机 和 坦克 都 在 不 断 地 相对 运动 ,所 以 在 计算 机 


扔 炸弹 的 提前 量 上 要 把 这 些 因素 考虑 进去 ;不 能 简单 地 乱 扔 
二 各 ， 

对 于 屏幕 边缘 的 扔 弹 时 机 ,掌握 起 来 相对 地 要 比 在 屏幕 
中 央 的 情形 困难 一 些 , 此 时 还 需 对 炸弹 飞行 至 屏幕 一 端的 位 
交 加 以 判断 ,再 移 至 屏幕 另 一 端的 同一 水 平 线 上 来 判 断 炸 弹 


后 ,在 已 能 较为 正确 地 把 握 扔 弹 时 机 时 再 练习 在 屏幕 边界 处 
的 扔 弹 技术 。 


C.3 ”勇士 敌 营 盗 宝 

1 游戏 名 称 

勇 七 政 营 盗 宝 。 

2.， 游戏 说 明 

游戏 者 通过 键盘 控制 勇士 上 、 下 、 左 、 右 移动 ,必要 有 时 
用 炸药 在 敌 营 中 炸 出 陷阱 ,以 躲避 卫士 们 的 围 追 堵截 .以 盗 得 
全 部 宝物 ,转移 至 安全 地 带 为 胜局 ,并 进入 更 涡 一 级 游戏 (更 多 
的 敌人 围 妃 ,更 多 的 定 物 )。 以 胜局 多 少 , 盗 宝 多 少 和 诱 使 卫 
芋 落 入 陷阱 次 数 作为 得 分 多 少 的 记录 , 对 成 绩 进 入 前 十 名 的 
操纵 人 员 , 计算 机 将 登录 他 (她 ) 的 姓名 以 玉 表 朝 。 本 游戏 训 
练 人 的 灵活 思维 . 快速 反应 和 手 脑 协 调 的 能 力 。 

3. 琵 法 介绍 

(启动 : 将 本 游戏 盘 片 装 入 软盘 邓 动 器 ,打开 电源 (如 电 
源 已 打开 . 则 打 入 PR 共 6<CR>), 游 戏 程序 即 被 装 入 内 存 . 放 
自动 进入 本 游戏 程序 。 

(2) 键 盘 的 使 用 

了 ) 在 游戏 程序 演示 玩法 说 明 时 , 按 任 一 字符 键 即 可 进入 
游戏 。 
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2) 操 纵 勇 士 活动 的 键 是 : 


其 中 <I> 指挥 勇士 沿 楼 梯 上 行 ; 
< 本 > 指挥 勇士 左 移 ; 
< 开 > 指挥 勇士 沿 楼 梯 下 行 ; 
<L> 指挥 勇士 右 移 ; 
< 吕 > 指挥 勇士 向 左 扔 炸弹 ; 
<O> 指挥 勇士 向 右 扔 炸弹 。 


3) 游 戏 功能 选择 键 是 : 


CTRL-A 放弃 正在 活动 的 勇士 (勇士 的 活动 陷 
人 绝对 困难 境地 ); 

CTRL-J ”选择 操纵 杆 来 指挥 勇士 活动 ; 

CTRL-K 选择 用 键盘 来 指挥 游戏 ; 

CTRL-R 放弃 正在 进行 的 游戏 ; 

CTRL-S 声音 开关 ; 

CTRL-X 倒置 操纵 杆 的 左右 移动 作用 ; 

CTRL-Y 倒置 操纵 杆 的 上 下 移动 作用 ; 

<<-> 减 慢 游戏 速度 ; 

< 一 > 加 快 游戏 速度 ; 
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<CR> 显示 得 分 最 高 的 前 十 名 操纵 手 的 名 单 ; 
<ESC> 暂停 游戏 ; 

CTRL-SHIFT-N 提高 放 戏 级 别 ; 
CTRL-SHIFT-P 申请 增加 勇士 人 数 。 


4) 游 戏 状态 的 编辑 
先 按 CTRL-R, 再 按 CTRL-E 进入 编辑 状态 。 
编辑 键 : 
<E> 进行 图 形 修改 ; 
一 了 > 选择 游戏 级 别 ; 
<I> ， 数据 盘 初始 化 ; 
<C> 从 游戏 盘 中 消除 某 一 级 别 的 游戏 画面 ; 
<M> 移动 某 一 级 别 的 游戏 画面 到 另 一 级 别 - 
上 去 
<S> 清除 最 高 成 绩 表 。 
(3) 玩 法 规则 
1) 勇 士 移 近 宝 物 即 可 取 走 宝物 。 
2) 卫 士 抓 住 勇士 ,即使 加 以 消灭 ,并 取 回 宝物 ,也 会 相继 出 
现 另 一 勇士 , 若 全 部 勇士 被 抓 , 则 结束 一 局 。 
3) 炸 开 的 砖 墙 过 一 定时 间 之 后 自动 恢复 原状 ,恢复 时 炸 
弹 坑 中 的 人 (勇士 、 卫 士 ) 都 被 掩埋 。 
4) 卫 士 掉 入 弹 坑 ,立即 将 宝物 放 到 弹 坑 外 。 
$) 完 成 一 项 游戏 全 过 程 后 ,游戏 自动 升级 ,增加 难度 ,并 奖 
励 增加 一 名 勇士 ,以 壮大 力量 。 
0) 空心 墙 上 的 宝物 ,勇士 必须 从 宝物 正 上 方 跳 下 和 夺取。 
7) 在 勇士 盗 取 了 全 部 宝物 后 ,游戏 程序 给 出 云梯 ,以 便 勇 
士 藉以 逃 出 敌 营 。 
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(4) 玩 法 技 马 一 一 如 何 得 高 分 

1) 路 线 与 盗 宝 时 机 选择 

(a) 路 线 选择 

操纵 者 在 一 个 级 别 开 始 时 应 先 仔细 观察 一 下 所 给 出 的 路 
线 、 宝 物 个 数 和 卫士 人 数 及 位 置 ,所 选择 的 路 线 须 与 卫士 有 

一 定 的 距离 ,以 尽 可 能 地 避免 与 多 名 卫士 正面 相 过 ,以 便 在 卫 
十 到 达 之 前 顺利 取 走 宝物 并 摆脱 卫士 的 追捕 。 

(b) 盗 宝 时 机 选择 

对 于 那些 卫士 守卫 力量 薄 而 又 较 易 盗 取 的 宝物 应 抓紧 时 
间 抢 先 盗 取 , 然 后 再 设法 将 卫士 引 开 或 设法 埋 住 (或 埋 死 ), 以 
便 从 容 地 取 走 那些 须 费 手脚 的 宝物 。 对 于 那些 被 多 名 卫士 严 
加 防护 的 宝物 ,可 诱 使 卫士 离开 守卫 处 再 乘机 迅速 取 走 。 

应 当 注 意 ,有 个 别 宝物 的 位 置 是 在 一 些 易 守 难 攻 的 险 境 
或 甚至 在 绝境 之 中 ,勇士 须 尽快 地 夺取 那些 处 于 险 境 中 的 宝 
物 ,否则 一 旦 有 卫士 进入 险 境 之 中 ,勇士 将 无 法 夺取 宝物 。 对 
置 于 绝境 的 宝物 ,勇士 不 可 轻举妄动 , 需 设 法 盗 取 完 绝境 外 的 
所 有 宝物 后 再 置身 绝境 夺取 宝物 ,这 时 必 有 通天 云梯 相 救 。 

2) 如 何 诱 使 卫士 跌 入 陷 坑 

卫士 是 勇士 盗 宝 的 主要 障碍 ,因此 勇士 应 尽量 诱 使 秆 近 
身 旁 造成 威胁 的 卫士 跌 入 陷 坑 ,以 便 迅 速 通 过 。 若 此 处 防卫 
卫士 众多 , 则 应 连续 多 次 炸 出 陷 坑 ,使 卫士 如 数 被 埋 , 然 后 才 可 
通过 。 若 有 两 名 卫士 间隔 一 段 上 距离 前 来 堵截 ,勇士 可 先 诱 使 
前 一 卫士 跌 入 陷 坑 (精确 估计 距 离 与 速度 ,掌握 和 于 炸药 时 机 )， 
然后 迅速 通过 ,并 使 后 一 卫士 跌 入 陷 坑 .以便 从 容 离 去 。 

3) 如 何 提高 单位 时 间 得 分 率 

提高 单位 时 间 得 分 率 的 最 佳 方法 是 以 最 快 的 速度 完成 盗 
宝 任务 进入 下 一 级 别 。 本 游戏 的 排名 次 是 首先 考虑 你 得 胜局 


271 


数 ,其 次 再 看 你 的 得 分 ,所 以 胜局 越 多 ;你 的 单位 时 间 得 分 率 越 
测 。 因 此 ,与 卫 芋 纠缠 不 体 是 不 明智 的 ,这样 具 会 降低 你 的 单 
位 时 间 得 分 率 ，。 

4) 如 何 选择 和 进入 适当 的 级 别 

在 你 需 选 择 基 一 级 别 进 行 游戏 ,可 先 输入 CTRL-R 后 


玩 过 的 最 后 一 个 级 别 数 ,你 可 输入 日 已 所 需 级 别 数 后 打 一 下 
回 车 键 , 即 能 进入 所 选 级 别 

如 果 你 初次 使 用 本 游戏 软件 ,那么 你 应 该 完了 阅读 有 关 本 
游戏 说 明 的 前 几 个 部 分 ,对 本 游戏 的 使 用 有 一 初步 了 解 后 , 再 
仔细 领悟 一 下 生动 演示 ,你 将 会 得 到 有 答 的 启示 。 随 着 操纵 
本 领 的 提 总 , 你 也 可 以 从 较 蜗 的 级 别 进 入 游戏 .以 使 你 的 技巧 
日 趋 成 熟 。 在 你 达到 一 定 的 水 平时 ， 就 可 以 问 抽 二名 成 绩 
的 目标 努力 了 。 


C.4 走 迷 宫 

1 游戏 名 称 

走 迷 宫 。 

2.， 游戏 说 明 

走 迷宫 是 一 种 冒险 性 的 智能 游戏 ,是 游戏 者 操纵 一 个 采 
宝 人 在 一 个 布 满 宇 物 的 迷宫 中 采 宕 。 在 此 过 程 中 ,迷宫 中 的 
数 十 个 卫士 在 迷宫 的 各 处 往返 巡逻 ,守护 着 宝物 。 若 采 和 振 人 
与 卫士 相遇 , 即 告 失败 。 

采 宝 人 可 借助 一 架 望 远 镜 在 采 宝 过 程 中 探 路 和 发 现 卫 寺 、 
及 时 地 避 并 卫士 并 尽快 地 采 宝 。 

此 游戏 紧张 、 惊 险 ,迷宫 中 布 满 了 死胡同 ,可 培养 、 锻 炼 
操纵 者 的 反应 灵敏 度 ,判断 力 和 综合 思维 能 力 。 
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3. 玩 法 介绍 
(启动 : 将 载 有 本 游戏 程序 的 软盘 片 放 入 软盘 驱动 器 中 ， 
然后 打开 显示 器 和 主机 电源 开关 ( 若 已 打开 , 则 打 人 入 
PR 并 6<CR> 来 启动 ), 本 游戏 自动 地 被 调 人 内存 并 开始 运 
行 。 
(2) 键 盘 的 使 用 : 本 游戏 可 供 游 戏 者 操纵 采 宝 人 的 键 有 
<I> 向 上 移动 ; 
<J> 问 左 移动 ; 
<K> 向 右 移动 ; 
<M > 回 下 移动 。 
除 此 四 个 操纵 键 外 ,本 游戏 偿 为 操纵 者 提供 了 以 下 几 个 
功能 键 : 
<CTRL=-S> “声音 控制 开关 ; 
<ESC> 游戏 暂停 /继续 开关 。 
本 游戏 开始 执行 后 将 自动 进入 玩法 演示 ,游戏 者 可 按 任 
意 键 退出 演示 ,开始 进行 游戏 。 
(3) 玩 法 规则 
1) 采 宝 人 每 采 到 一 个 宝物 得 10 分 ; 
2) 若 采 宝 人 暂时 不 能 采 到 宝物 时 ,每 秒 钟 将 扣除 一 分 
3) 若 采 宝 人 与 迷宫 中 的 卫 上 十 相遇 ,本 次 游戏 即 告 结束 
4. 玩 法 技巧 
(如 何 避 免 聊 入 绝境 
1]) 在 边界 处 采 持 
当 采 宝 人 采集 衬 物 双 迷 宫 边界 处 时 ,应 注意 防止 误 入 寻 
胡同 而 遭 的 。 此 时 ,应 利用 望 远 二 镜 仔细 观察 周围 的 路 生 和 卫 
芋 的 巡逻 情况 ,暂时 各 无 卫 圭 盟 近 , 则 迅速 进入 多 胡 同 采 宕 并 
及 时 退出 ,然后 绸 治 通途 转移 。 附 近 如 有 卫士 巡逻 过 来 , 则 应 


1 
~ 
人 


暂时 转向 邻近 地 区 采 室 ,同时 与 卫 二 周旋 , 待 卫士 一 远离 , 则 迅 
速 进入 拓 衣 同 采 宝 。 

2) 在 采 持 时 过 到 前 后 夹 届 以 全 多 和 名 卫 上 围捕 

当 采 宇 人 在 采集 宝物 时 ,一 电 发 现 有 多 名 卫 上 向 其 迫近 
则 应 迅速 判断 卫士 们 的 巡逻 走向 .然后 迅速 拐 入 贫 道 ,在 卫 十 
之 问 的 空 陈 中 逃离 。 亦 可 悄悄 地 跟随 一 卫 上 走 友 贫 路 口 处 、 
再 迅速 逃离 。 在 游戏 过 程 中 ,游戏 者 应 该 培养 自己 的 观察 力 . 
在 操纵 采 ' 关 人 采集 竺 物 的 问 时 ,不 断 地 观察 万 意 周 围 卫士 的 
活动 ,这 样 练习 一 段 时间 后 . 即 能 学 会 如 何 发 现 卫 上 的 合围 .做 
到 及 时 、 迅 速 地 脱离 险 地 .转向 卫 王 少 而 宝物 多 的 区 战 采集 
把 物 。 

(2) 如 何 取得 疯 分 

当 游 戏 者 能 较 熟 练 地 掌握 采取 定 物 的 时 机 后 , 即 可 进入 
更 涡 级 的 游戏 一 一 争取 在 短 时 间 内 采 到 较 多 竺 物 ,以便 获 取 
疝 分 。 由 于 本 游戏 设置 了 一 种 特殊 的 计 分 方式 ( 采 宝 者 不 
能 采 到 室 物 时 ,每 一 秒 钟 扣除 一 分 )， 所 以 在 游戏 过 程 中 , 操 
纵 者 应 尽 可 能 地 成 片 采 集 和 宇 物 , 待 其 一 区 域 的 宝物 采集 完 之 
后 再 移 蒜 另 一 区 域 采集 ,以 避免 留 下 少量 宝物 .又 长 途 跋涉 ,在 
遭 受众 卫士 堵截 的 威胁 下 ,再 返回 来 采集 .在 途中 浪费 时 间 , 减 
少 分 数 。 在 此 策略 不 变 的 情况 下 . 若 过 卫士 围捕 , 则 应 迅速 转 
移 。 所 以 , 早 一 步 发 现 卫 士 的 围捕 .将 给 操纵 者 多 一 份 判断 、 
选择 下 一 步行 动 路 线 的 机 会 ,使 操纵 者 能 在 卫 上 们 的 围捕 中 
进退 自如 ,从 容 采 和 尘 。 

需要 提醒 操纵 者 的 是 ,高 分 是 在 确保 采 宝 人 的 安全 下 才 
可 达到 的 ,策略 上 必须 避 开 敌人 ,保存 自己 , 待 卫士 离开 后 才 可 
迅速 返回 采 汗 ,而 不 能 冒失 地 部 入 绝境。 
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C.$ 与 计算 机 比赛 控 金 砖 
1 游戏 名 称 
挖 金 砖 。 
2.， 游戏 说 明 
本 游戏 由 游戏 者 与 计算 机 轮流 控 取 一 座 金山 的 金 砖 。 游 
戏 者 控 取 一 块 金 砖 后 会 引起 重心 不 稳 的 金 砖 坠 落 。 为 了 获取 
高 分 ,游戏 者 应 该 设法 控 取 能 引起 较 多 金 砖 哈 落 的 那 块 砖 ,而 
同时 又 不 使 金山 项 上 的 大 楼 倒塌 。 另 外 ,游戏 者 与 计算 机 之 
间 要 互相 人 迫使 对 方 去 控 倒 大 楼 。 这 样 的 比赛 共 进 行 三 次 , 它 
将 训练 游戏 者 的 记忆 能 力 ,逻辑 思维 能 力 和 判断 能 力 。 
3.， 玩法 介绍 
() 启 动 :将 本 游戏 盘 片 插入 磁盘 驱动 器 ,打开 电源 ( 若 电 
源 已 打开 , 则 打 入 PR 并 6<CR>), 游 戏 程序 即 被 装 和 内存 , 自 
动 进入 本 游戏 程序 。 在 显示 玩法 说 明 后 ,就 可 进行 游戏 了 。 
(2) 键 的 功能 说 明 :游戏 者 可 用 下 列 各 个 键 来 移动 光标 块 ( 
与 金 砖 大 小 相同 ), 并 用 它 来 控 取 金 砖 。 
<U> 光标 向 上 移动 一 个 块 位 置 ; 
<D> 光标 向 下 移动 一 个 块 位 置 ; 
< 一 > 光标 向 右 移动 一 个 块 位 置 ; 
<<-> 光标 向 左 移 动 一 个 块 位 置 ; 
<X> 控 取 光标 当前 所 在 位 置 处 的 金 砖 。 
(3) 玩 法 规则 
1) 游 戏 开 始 后 屏幕 上 出 现 一 座 由 不 同 颜色 金 砖 堆 成 的 金 
山 , 金 山 之 顶 建 有 大 楼 ,金山 呈 金 字 塔 状 ,由 5$5 块 金 砖 组 成 , 共 
计 十 层 。 金 砖 的 颜色 计 有 五 种 : 兰 、 黄 、 灰 、 标 、 绿 。 在 单 
色 显 示 器 上 表现 为 五 种 不 同 的 灰 度 。 各 种 颜色 的 金 砖 块 数 及 
其 在 金字 塔 型 中 的 位 置 由 程序 随机 设 定 。 控 取 这 五 种 不 同 颜 
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色 的 金 砖 相 应 得 分 依次 为 :500、300、200、100 和 0 分。 这 
五 种 金 砖 的 重量 分 别 为 :2,5,4,3 和 1。 

2) 开 始 由 游戏 者 控 取 金 砖 ,如 果 不 使 大 楼 倒塌 ,程序 将 累 
计 游 戏 者 挖 得 金 砖 (包括 控 取 的 及 所 有 因 重 心 不 稳 引 起 坠落 
的 所 有 人 金 砖 ) 的 得 分 。 

3) 如 果 游 戏 者 控 砖 致使 大 楼 倒塌 ,那么 挖 得 的 金 砖 均 不 
予 坦 从， 

4) 游 戏 者 每 控 一 次 砖 ,其 总 分 先 被 扣除 100 分 。 另 外 ,一 
次 控 砖 累计 得 分 超过 1000、1500 或 2000 时 ,将 分 别 以 二 
倍 、 三 倍 和 四 倍 的 分 数 作为 对 控 砖 者 的 奖励 。 

(外 如何 得 高 分 

1) 游 戏 者 必须 记 住 五 种 颜色 金 砖 的 重量 和 它们 各 自 代 表 
的 分 数 ,游戏 的 目标 是 控 取 能 够 引起 很 多 金 砖 失 重 并 自动 险 
落 的 那 块 砖 ,但 绝对 不 应 使 山顶 大 楼 倒塌 。 注 意 , 蓝 砖 较 轻 ,但 
是 得 分 最 高 。 

2) 游 戏 者 应 尽量 避免 出 现 一 次 仅 挖 得 一 块 金 砖 的 情况 ， 
因为 每 次 控 砖 先 要 扣除 100 分 。 

3) 在 游戏 开局 阶段 , 尽 可 能 一 次 控 取 较 多 金 砖 来 获取 奖 
分 。 在 后 一 阶段 ,游戏 者 必须 仔细 计算 剩 下 的 可 取 砖 块 数 ,并 
通 使 计算 机 来 控 倒 大 楼 。 

4) 要 想 更 为 有 效 地 获取 高 分 , 那 就 需要 知道 程序 如 何 判 
别 游戏 者 控 取 一 块 砖 后 ,其 左 、 右 上 方 的 金 砖 有 和 否 失 重 的 算 
法 和 计算 机 控 取 金 砖 的 算法 ( 详 见 第 三 章 )。 

C.6 金 叶 古 塔 (河内 塔 ) 的 搬移 

1 游戏 名 称 

金 叶 古 塔 的 搬移 。 
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2.， 游戏 说明 

本 游戏 是 由 八 个 由 小 到 大 ， 自 上 而 下 的 塔 盘 顺 序 堆放 构 
成 的 金 叶 古 塔 。 在 游戏 中 ,游戏 者 每 次 可 搬移 一 块 塔 盘 到 另 
外 一 根 塔 柱 上 ， 但 仍 应 按 由 小 到 大 的 顺序 堆放 , 共 为 游戏 者 
提供 三 根 塔 柱 , 供 搬移 调整 时 用 。 这 样 直 到 八 个 塔 盘 全 部 移 
完 为 止 。 此 游戏 可 以 使 游戏 者 了 解 递归 调用 某 一 过 程 解决 复 
杂 问 题 的 规律 。 它 使 许多 复杂 、 难 解 的 问题 简化 为 不 同 层次 
上 直观 、 易 于 理解 的 小 问题 ,并 能 锻炼 游戏 者 的 逻辑 推算 能 
光 

3.， 玩法 介绍 

() 启 动 :将 本 游戏 盘 片 装 人 软盘 驱动 器 ,打开 电源 (如 电 
源 已 开 , 则 打 入 PR 卉 6<CR > ), 游 戏 程序 即 被 装 和 人 内 存 ,自动 
进入 本 游戏 程序 。 

(2) 键 盘 的 使 用 

1H) 在 游戏 程序 开始 运行 后 ,将 首先 询问 你 是 否 要 看 一 下 
游戏 说 明 , 如 需要 ; 则 打 入 <Y><CR>, 和 否则 打 
<N> <CR>。 


2) 操 纵 星 号 活动 的 键 是 : 

< 一 > 向 右 移动 ; 

< < > 向 左 移 动 ; 

<CR> 取出 或 放 和 人 塔 盘 (搬移 塔 盘 )。 
(3) 玩 法 规则 


1]) 每 次 只 可 搬移 一 个 塔 盘 。 

忆 每 次 搬移 后 ,所 有 塔 柱 上 的 塔 盘 都 应 是 从 小 到 大 顺序 
释放 ,小 的 在 上 面 ,大 的 在 下 面 。 

3) 不 允许 将 大 塔 盘 搬移 到 小 塔 盘 的 上 面 。 

4) 每 搬移 一 块 塔 盘 ?将 使 程序 的 计数 加 一 . 
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5) 完 全 搬移 到 另 一 塔 柱 处 后 , 八 块 塔 盘 的 排列 次 序 应 与 
开始 时 相同 , 即 自 上 而 下 ,由 小 到 大 堆放 。 

6) 以 搬移 次 数 最 少 者 为 胜 。 

(4) 玩 法 技巧 一 一 如 何 使 次 数 最 少 

游戏 者 在 开始 搬移 动 了 三 到 四 个 塔 盘 后 将 会 碰 到 这 样 一 
个 问题 , 即 另 外 两 根 塔 柱 上 的 塔 盘 都 比 要 移动 的 塔 盘 片 小 。 
接着 应 如 何 搬 呢 ? 首先 应 将 已 搬出 的 塔 盘 片 由 小 至 大 迁 在 一 
根 塔 柱 上 ,然后 再 搬移 此 大 塔 盘 至 另 一 根 空 塔 柱 上 ,并 数 一 下 
另 一 根 塔 柱 上 已 搬出 塔 盘 的 数目 是 奇数 还 是 偶数 ,若是 奇数 ， 
则 将 其 最 小 的 塔 盘 置 于 搬出 的 大 塔 盘 上 ,将 次 小 的 塔 盘 搬 回 
原 塔 柱 上 ,使 另 一 根 堆 有 已 搬出 塔 盘 的 塔 柱 上 的 最 大 一 块 塔 
盘 最 终 能 放 到 此 时 搬移 出 来 的 更 大 的 塔 盘 之 上 。 若 是 偶数 ， 
则 与 奇数 的 做 法 相反 。 
”由 于 显示 器 分 辩 率 及 内 存 容 量 的 限制 ,我 们 只 做 到 八 片 
塔 盘 ,倘若 将 塔 盘 增加 到 16 个 ,32 个 ,64 个 …, 聪 明 的 游戏 者 
可 以 计算 一 下 ,各 需 搬 动 几 次 ?如 果 每 秒 钟 移 一 片 ,要 移动 多 少 
时 间 ? 你 的 一 生 能 完成 吗 ?怪不得 古书 中 说 这 是 一 个 要 做 到 
世界 末日 才能 做 完 的 工作 。 


C.] 体育 游戏 一 一 保龄球 

1 游戏 名 称 

保龄球 。 

2.， 游戏 说 明 

这 是 一 个 用 游戏 操纵 杆 控制 保龄球 沿 正 确 路 线 前 进 ,以 
适当 的 力度 击 倒 球 门 处 的 屏障 物 的 游戏 。 其 原理 见 第 四 章 关 
于 族 戏 操纵 杆 的 说 明 。 

3 玩法 介绍 《 略 > 
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C.8 ” 棋 类 游戏 一 一 五 子 棋 

1， 游戏 名 称 

五 子 棋 。 

2.， 游戏 说 明 

本 游戏 以 计算 机 为 一 方 ,与 游戏 者 进行 竞赛 。 游 戏 者 通 
过 键盘 输入 所 下 棋子 的 坐标 位 置 ,设法 使 己方 棋 子 抢先 成 为 
五 颗 子 连 成 一 线 为 胜 。 当 然 ,在 这 五 个 棋子 中 间 不 能 夹 有 对 
方 的 棋子 。 此 游戏 可 锻炼 游戏 者 的 逻辑 思维 、 策 略 设 计 和 心 
算 能 力 。 

3.， 玩法 介绍 

() 启 动 :将 本 游戏 盘 片 装 人 软盘 驱动 器 ,打开 电源 (如 电 
源 已 开 , 则 打 入 PR 共 6<CR>), 游 戏 程序 即 被 装 人 内 存 , 自 
动 进入 本 游戏 程序 。 

(2) 键 盘 的 使 用 

IJ) 在 游戏 显示 图 形 后 ,旁边 将 有 一 句 提 问 。 问 你 是 否 要 
先 手 落 子 , 若 你 请 求 先 手 落 子 权 ,就 按 一 下 <Y> 键 ,否则 可 打 
入 <N> ,游戏 就 立即 开始 。 

2) 在 棋盘 的 上 方 和 左 方 各 有 A 一 O 的 字母 ,这 就 是 棋子 
的 坐标 。 当 你 选中 某 一 位 置 ,需要 落下 棋子 时 ,可 顺 此 位 置身 
上 找到 此 位 置 的 横 坐 标 并 输入 ,再 顺 此 位 置 向 左 找到 其 纵 坐 
标 并 输入 ,程序 就 会 在 你 指定 位 置 落下 一 个 棋子 ,并 再 询问 你 
的 位 置 是 否 正 确 。 若 不 正确 , 则 可 按 <N> 键 取消 这 个 棋子 ， 
再 输入 正确 的 位 置 。 若 肯定 输入 是 正确 的 , 则 按 一 下 除 
<N> 以 外 的 字符 键 即 可 。 

(3) 玩 法 规则 

]) 游 戏 双 方 每 次 只 可 落下 一 个 棋子 ; 
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2) 已 有 棋子 的 位 置 不 可 再 落下 棋子 ; 

3) 已 落 定 的 棋子 不 可 再 移动 ; 

4) 棋 子 须 落 在 棋盘 所 规定 的 范围 内 ; 

5$) 若 一 方 率 先 使 他 的 四 个 棋子 在 横向 、 坚 向 或 斜 对 角 方 
向 上 连 成 一 线 ,而 对 方 又 无 法 阻止 其 第 五 个 棋子 落 在 连 线 上 ， 
则 此 方 为 胜 。 

(4) 玩 法 技 马 一 一 如 何 取胜 

1) 阻 止 计 算 机 棋 手 先 将 五 子 连 成 一 线 

游戏 者 在 游戏 时 应 注意 当 计算 机 一 方 有 三 个 棋子 连 成 一 
线 时 ,就 必须 在 它们 一 端 落 子 ,以 阻止 其 在 此 方向 上 继续 落 子 ， 
这 样 即 使 计算 机 在 该 连 线 另 一 端 继续 落下 棋子 ,也 可 以 及 时 
加 以 截断 。 

对 于 对 方 在 二 个 棋子 的 一 端 空 开 一 格 落 子 ,游戏 者 应 根 
据 己 方 情 况 确定 是 否 要 在 其 空位 上 艇 入 或 在 其 一 端 落 子 。 此 
时 应 特别 注意 是 否 有 其 他 连 线 与 此 线 交 汇 。 若 有 , 则 应 抢先 
落 子 ,以 防 其 双 线 齐 通 。 

游戏 者 在 阻止 程序 取胜 时 应 注意 做 到 防 患 于 未 然 .特别 
注意 可 能 造成 双 线 或 多 线 齐 通 的 方向 、 位 置 ,及 时 了 予以 截断 ， 
迫使 对 方 疏 散 棋子 , 往 棋子 稀少 处 重新 发 展 。 

2) 使 己方 棋子 连 成 一 线 

要 使 己方 取胜 ,如 一 味 阻 止 对 方 是 不 明智 的 ,高 明 的 做 法 
是 设法 使 一 子 多 用 , 即 你 落下 的 棋子 既 阻 止 了 对 方 的 连 线 ,又 
可 以 使 己方 的 连 线 增加 一 子 。 或 者 落下 的 棋子 可 同时 是 使 二 
条 以 致 二 条 以 上 的 连 线 增 加 一 子 ,造成 对 方 顾 此 失 彼 ,无 从 下 
手 。 而 要 做 到 这 一 点 , 则 应 使 自己 的 棋子 相对 地 集中 在 棋盘 

某 一 区 位 上 ,并 向 对 方 防守 薄弱 处 发 展 ,造成 局 部 的 子 力 优 
势 ,就 能 较 容 易 地 五 子 连 成 一 线 ,使 己方 获得 胜利 。 


280 


C.9 ”英语 短语 组 成 及 阅读 测试 游戏 

1 游戏 名 称 

计算 机 作 英 语 短文 。 

2.， 游戏 说 明 

本 游戏 是 根据 计算 机 提示 ,游戏 者 用 键盘 输入 英语 单词 ， 
由 计算 机 来 组 成 一 篇 短文 供 游戏 者 阅读 的 游戏 。 

3.， 玩法 介绍 < 略 > 


C.10 “奥林匹克 一 一 十 项 全 能 

1 游戏 名 称 

奥林匹克 一 一 十 项 全 能 。 

2.， 游戏 说 明 

本 游戏 由 计算 机 担任 裁判 和 记录 员 , 游 戏 者 用 键盘 控制 
运动 员 跑 动 、 跳 跃 、 屈 伸 、 展 开 、 脱 离 器 械 等 动作 ,以 创造 
良好 运动 成 绩 。 本 游戏 可 用 来 进行 奥运 会 十 项 全 能 中 的 每 个 
项 目的 比赛 ,使 操纵 者 犹如 身 临 其 境 , 为 创造 优异 成 绩 和 新 的 
“ 志 界 记录 "而 努力 拼搏 。 以 竞赛 者 的 成 绩 最 优 者 为 胜 (2 一 8 
人 ), 若 能 打破 或 打 平 “世界 记录 ”, 程 序 将 记录 他 们 的 姓名 以 示 
表彰 。 本 游戏 训练 人 的 灵活 思维 、 快 速 反 应 、 手 脑 协调 和 手 
指 的 灵活 性 等 能 力 ,并 帮助 游戏 者 了 解 十 项 全 能 运动 的 取胜 
关键 、 比 赛 规则 及 有 关 诀 容 。 

3.， 玩法 介绍 

(U) 启 动 :将 本 游戏 盘 片 的 第 一 面 装 和 软磁盘 驱动 器 ,打开 
电源 (如 电源 已 开 , 则 打 入 PR 并 6<CR > ) 游 戏 程序 即 被 装 人 
内 存 ,自动 进入 本 游戏 程序 。 

(2) 键 盘 的 使 用 
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1) 游 戏 目录 的 选择 :游戏 自动 调 人 后 ,将 在 画面 中 央 显 示 


1].COMPETE IN ALL THE EVENTS 
2.COMPETE IN ONE EVENTI 
3.PRACTICE ONE EVENT 
4.SEE WORLD RECORDS 
SS.OPENING CEREMONIES 
6.SJOUND IO APPLE SPEAKER 


其 中 文 意思 是 : 


1. 所 有 项 目 比赛 
2. 单 个 项 目 比 赛 
3. 单 个 项 目 练习 


4. 了 解 世界 记录 
5. 奥 运 会 开幕 式 演示 
6. 用 主机 扬声器 发 声 


这 时 有 一 白色 横 条 光标 置 于 第 一 行 上 ,游戏 者 可 以 操纵 
一 、<- 两 个 键 上 下 移动 光标 ,一 旦 要 进入 的 项 目 选 定之 后 , 打 , 
一 下 空格 键 即 可 进入 。 

当 你 选择 的 是 第 一 或 第 二 项 时 ,首先 将 进行 运动 员 的 姓 
名 、 国 籍 登记 ,你 可 以 输入 姓名 之 后 运用 A( 向 上 移动 )、Z( 向 
下 移动 )、<-( 向 左 移动 )、 一 (向 右 移动 ) 移 动 光标 ,进行 国籍 先 
择 , 可 供 选 择 的 二 十 四 个 国家 的 国旗 分 成 二 页 显示 , 若 你 将 方 
框 移出 屏幕 , 则 意味 着 进入 下 一 页 进行 选择 。 在 你 按 了 空格 
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键 之 后 ,程序 将 自动 登记 该 国旗 所 代表 的 国名 ,并 播放 该 国 国 
歌 。 当 所 有 游戏 者 选择 完毕 之 后 ,可 按 RETURN 键 退出 选 
择 。 
如 果 原 来 是 选择 第 一 项 ,将 直接 进入 游戏 ,对 选择 第 二 项 
的 游戏 者 将 再 进行 十 个 运动 项 目的 选择 。 此 时 屏幕 显示 十 个 
运动 项 目 名 , 供 你 进行 选择 : 


1].POLE VAULT 
2.PLATFORM DIVING 
3.4x400M RELAY 
4.100M DASH 


$.GYMNASTICS 
6.FREESTYLE RELAY 
7.100M FREESTYLE 
8.SKEET SHOOTING 


其 中 文 意思 是 : 


1, 撑 竿 跳高 
2. 高 台 跳水 
3.4x 400 米 接 力 赛 
4.100 米 跨 栏 


.跳马 

6.4x 100 米 自由 泳 接力 赛 
7.100 米 自 由 泳 

8. 双 向 飞碟 射击 
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选中 后 , 即 可 开始 游戏 。 如 果 你 选择 的 是 $ 一 8 项 , 则 需 
将 本 游戏 盘 的 第 二 面 重 新 放 人 驱动 器 ,再 开始 游戏 。 
若 你 选择 了 主 菜 单 的 第 三 项 , 则 将 不 进行 姓名 和 国籍 的 
登录 而 直接 进行 运动 项 目 选择 。 
第 四 项 可 以 帮助 你 了 解 所 有 项 目的 世界 记录 成 绩 及 保持 
者 姓名 。 
第 五 项 可 以 演示 奥运 会 开幕 式 的 全 过 程 。 
第 六 项 是 程序 通过 主机 扬声器 或 录音 机 的 喇叭 播送 声 
上 ,。 
2) 操 纵 键 : 
<A> 向 上 路 起 (移动 ) 或 展 身 ; 
<Z> 向 下 移动 ( 撑 竿 ) 或 届 身 ; 
< -< 一 > 向 左 移动 或 与 <-~>> 键 配合 进行 跑 动 
或 划 水 ; 
< 一 > 向 右 移 动 或 与 <~-> 键 配合 进行 跑 动 
或 划 水 ; 
空格 键 ”开始 比赛 或 射击 。 
(3) 玩 法 规则 
1) 径 赛 和 游泳 赛 在 未 发 令 前 不 得 抢 跑 或 抢 跳 ; 
2)4 x 400 米 接 力 赛 交 接 棒 时 按 空格 键 进行 交接 棒 ; 
3) 跳 马 比 赛 须 踏 中 跳板 方 为 有 效 ; 
4) 射 击 比赛 时 每 次 移动 射击 次 数 和 所 出 现 飞碟 数 相同 ; 
5) 撑 竿 跳高 比赛 若 在 同一 高 度 将 横 竿 碰 落 三 次 , 则 比赛 
者 将 被 淘汰 ; 
(4) 玩 法 技巧 一 一 如 何 得 高 分 
1) 径 赛 与 游泳 比赛 
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在 径 赛 与 游泳 比赛 中 ,如 何在 发 命令 的 一 瞬间 起 动 ,精确 
掌握 起 跑 时 机 是 取得 好 成 绩 的 关键 之 一 ,正确 的 方法 应 用 眼 
有 睛 凝视 显示 命令 的 位 置 ,在 SET 命令 撩 掉 的 瞬间 迅速 起 动 。 

在 接力 赛 时 ,应 当 抓 住 交接 棒 的 一 瞬间 迅速 按 下 空格 键 ， 
并 立即 交替 打击 < 一 >、<-<-> 键 ,使 下 一 棒 运 动员 立即 起 
动 ,减少 交接 棒 的 时 间 。 

2) 撑 竿 跳高 

此 项 运动 应 注意 掌握 立 竿 的 时 机 ;应 当 在 撑 笔 到 达 背 景 
的 某 一 位 置 时 作为 按键 的 好 时 机 ,并 在 撑 笔 撑 实 时 迅速 借 力 
屈 身 路 上 ,并 在 膝 部 过 竿 的 一 瞬间 放 开 撑 等 。 

3) 跳 水 

此 项 运动 应 注意 运动 员 在 人 水 的 一 瞬间 身体 垂直 向 下 ， 
并 且 尽 可 能 使 运动 员 在 空中 多 做 几 次 转身 动作 (不 断 的 屈 身 
和 展开 ), 以 增加 动作 的 难度 ,这 样 将 会 使 每 项 得 分 高 至 150 分 
以 和 

4) 跳 马 ， 

此 项 运动 的 成 败 关键 在 于 你 能 和 否 掌握 运动 员 的 平衡 ,并 
使 其 在 落地 的 瞬间 身体 垂直 向 上 ,不 致 于 摔 倒 。 其 正确 方法 
是 ,在 运动 员 离 地 约 半 人 高 时 迅速 展 直 身 体 , 脚 向 前 伸 , 依 靠 旋 
转 的 惯性 使 运动 员 在 落地 时 身体 垂直 向 上 。 另 外 ,要 注意 手 
离 鞍 马 的 时 机 ,应 迅速 抓 住 身体 越过 鞍马 的 一 瞬间 , 击 一 下 空 
格 键 ,使 运动 员 腾 身 牙 起 ,并 迅速 做 转身 动作 ,再 配合 展 直 身 体 
的 时 机 ,这 样 完美 地 完成 一 套 动作 ,将 会 获得 9 分 以 上 的 高 
分 。 

5) 射 击 
此 项 运动 由 于 射击 位 置 不 断 改变 ;, 故 难度 较 高 。 由 于 射 
出 飞碟 的 起 始 处 即 两 个 射 碟 机 的 位 置 固定 不 变 , 故 可 在 按 空 
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格 键 开始 移动 时 迅速 将 瞄准 器 移 向 射 碟 机 ,并 立即 判断 射出 
飞碟 的 飞行 方向 及 个 数 ,及 时 将 瞄准 器 套 住 飞碟 ,立即 按 下 空 
格 键 射击 。 在 射击 时 要 沉着 冷静 ,以 免 在 瞄准 器 尚未 套 住 飞 
碟 时 放空 枪 , 而 在 套 住 时 又 无 子弹 了 。 


和 玉 中 上 汪 全 


